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1 . Abstract 

The PDP-15 Extended Memory Address Test tests all of core memory 
not occupied by the program to ensure that each location can be 
uniquely addressed. This is done by a series of four tests. The first 
two tests write the address and complement address of each memory 
location into itself, and then check each location to make sure each 
is correct. The third test slides a one through a word of zeroes in 
each memory field. Test four writes and reads a pattern designed to 
detect adjacent bit positions shorted within a memory stack. 

The program relocates automatically from field to field, and tests all 
of core memory from each field. 

2. Requirements 

2.1 Equipment 

A PDP-15 equipped with a minimum of 8K of core memory. 

2.2 Storage 

The program utilizes approximately 3K (decimal) words of its resident 

4K memory field. 

3 . Loading Procedure 
3.1 Method 

The tape supplied is for HRM, and may be loaded into any low order 4K 
field (X0000-X7777) . 

Place the tape in the reader; place the BANK MODE switch on a 1; set the 
ADDRESS switches to 017700; press I/O RESET and then READ-IN. 

4. Starting Procedure 

Start from 200 to initialize the program. 

Restart from 221 to retain current operating parameters (amount of core 
to test, etc.) 



4 . 1 Progr a m/Operator Action 

After program load or restarting from 200, the operator must indicate 
to the program the amount of core memory to be tested, and any 
special function to execute. The amount of core memory is indicated 
via keyboard . 

The program will first print the message "TEST LIMITS". The operator 
must then specify, following the procedure listed below, the amount 
of core memory to be tested. The program expects the 4K memory 
fields to be numbered octally beginning with field (locations 00000 
to 07777) through 7 (locations 70000 to 77777). For a maximum of 
32K of memory the memory addresses for the 4K fields would be: 

Field * Memory Addresses (octal) 

00000 to Q7777 

\ 10000 to 17777 

2 20000 to 27777 

3 30000 to 27777 

4 40000 to 47777 

5 50000 to 57777 

6 60000 to 67777 

7 70000 to 77777 

Use the following procedure to specify TEST LIMITS. 

a. Type two numbers, separating the numbers with a comma. 

b. Press the carriage return key. 

c . The first number typed signifies the first 4K field to test, and 
the second number the last 4K field to test. 

d. The program will begin testing with the lowest order 4K field 
specified, and will test all consecutive fields up to and 
including the highest specified. 

e. The 4K field containing the program may be included. It will 
be tested after program relocation takes place. Program 
relocation is discussed in section 5.3. 1. 

f . If a typing error is made, press the RUBOUT key. "TEST LIMITS" 
will be printed again. Previous input is ignored. 



g . The highest 4K field to test may be typed first. The program 

will reverse the two numbers so as to make the first number the 
last to test. 

h. Any single field or any two or more consecutive fields may be 

specified. 

For the following examples assume that the program is in field , and 
the PDP-15 being used is equipped with 32K of core memory. 

Example A : 

TEST LIMITS 

0, 7^ (^ denotes carriage return) 

The program will test all 32K of memory. 

Example B: 

TEST LIMITS 
7, Oi 

The program will perform exactly as Example A. 

Example C: 

TEST LIMITS 

3, 3i 

Only field 3 will be tested. 
Example D : 

TEST LIMITS 

4, 6i 

Fields 4, 5, and 6 will be tested. 
Example E: 

TEST LIMITS 

0, PROGRAM IS IN FIELD 

TEST LIMITS 

0, li 

Example E shows the message printed by the program when a 
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single field is specified which currently contains the program. 
"TEST LIMITS" is printed again, and the operator must then 
correct the test limits. 

: . I . I SETUP ACS 

After specifying the test limits, the program will print "SETUP ACS". 
For normal program operation the ACS must be set to 000000 octal. 
Press any key (except RUBOUT) on the keyboard after setting the 
ACS to all O's. "RUBOUT" will restart the program with "TEST 
LIMITS". After terminating with a key, the program will run until 
stopped by the operator. Normal program operation is defined as 
performing all eight clii.ckerboard patterns on all of available memory 
from every 4K field. 

5. Operating Procedure 

a . Load the program into memory field as described in section 3. 

b. Specify the test limits as described in section 4.1. 

c. The message "SETUP ACS" will be printed. Set the ACS to 
000000, and press any key except RUBOUT. 

d. The program will perform all four tests on all of memory 
specified, then automatically relocate to the highest field 
number under test. 

5.1 ACS Settings 

Normal operation of the program reqjires the ACS set to 000000, 
Refer to section 8.2, Applications for switch settings provided for 
trouble-shooting . 

5.2 Subroutine Abstracts 

The program executes a series of four tests on core memory. Each 
test writes a unique pattern, and checks each location for error. 

Test 1 writes the value of each memory location into itself, from the 
lowest order to the highest order field under test. The address pattern 
is then read, and checked for error, in the same direction i.e., 
from the lowest to highest field. The pattern is then read and checked 
for error in the reverse direction, i.e., from the highest field to the 
loz/est field. This sequence is repeated twice before test 2 is 
initiated. Test 1 may be run by itself by placing ACS 3 on a 1. 



Tests 2, 3 and 4 write and read their patterns into one field at a 
time. The rest of memory will contain an all I's pattern. After' 
each pattern is written and read, the rest of memory is checked to 
make sure that its pattern has not changed. After one field has been 
tested the next higher field in sequence will contain the pattern, 
and the rest of memory will equal all Ts. This is continued for one 
test until all fields have contained the test pattern. The next test 
in sequence will then be initialized. All of memory is set to I's before 
the next field in sequence is tested. 

Test 2 first writes I's into all of memory, and then writes the 
complement value of each address into itself. The pattern is written 
once in the forward direction in one field. The rest of memory is 
then read and checked for error (in the forward direction ) . The 
field with the address pattern is then read once in the forward and 
reverse directions, after which the rest of memory is again checked. 

The same field with the address pattern is then reset to all I's, and 
the same address pattern is then written in the reverse direction. 
The rest of memory is then checked; the field with the pattern is 
read in forward and reverse directions, and finally the rest of 
memory is again checked. The next higher field in sequence will 
be tested in the same manner. After all fields have been tested in 
this manner, test 3 is initialized. Test 2 may be run alone by 
placing ACS 4 on a 1. 

Test 3 first writes 1 's into all of memory, and then writes a sliding 
1 pattern into one field. Each location of the field will contain a 
word of all O's except for one bit position. The bit set is rotated 
one place to the left for each memory location, starting with bit 17. 
The following test sequence is repeated 18 times, resulting in every 
bit in each memory location being set. 

a. Write all I's into all of memory. 

b. Write a sliding one pattern into one field. 

c. Read and test rest of memory. 

d. Read and test the field with the pattern in the forward 
direction only. 

e. Read and test rest of memory. 

f . Repeat steps b through e 17 more times before testing the 
next sequential field in the same manner. 



After all fields have been tested with a sliding 1, test 4 is initialized. 
Test 3 may be run alone by placing ACS 5 on a 1 . 

Test 4 writes ones into all of memory. A pattern consisting of 

1 word of O's followed by 1 word of I's is then written into one field. 

The following sequence is then executed. 

a. Write the pattern in one field in the forward direction. 

b. Read the field with the pattern in the forward direction. 

c. Read again m the reverse direction. 

d. Read rest of memory. 

e. Write the complement pattern in the forward direction, and 
repeat steps b, c, and d, then do step f . 

f. Write the pattern in the reverse direction, and do steps b, c, 
and d, then do step g . 

g. Write the complement pattern in the reverse directio , and do 
steps b, c and d, then setup to repeat a through g on the next 
higher field in sequence. 

After all fields have been tested, the program then relocates 
automatically and starts over with test 1 . Test 4 may be run alone 
by placing ACS 6 on a 1 . 



5.2. 1 Program Relocation 



The program relocates itself in order to test addressing from all 
fields to every other field. Relocation depends upon the amount of 
core memory being tested. Relocation is always within the group of 
4K fields selected for testing, and under certain conditions the program 
will not relocate at all, but will remain in the current field to perform 
the tests (see below). The program normally first relocates to the 
highest order 4K field under test. From there it relocates to the next 
lower 4K field, after performing all tests. The program keeps relocating 
to the next lower 4K field until it reaches tie lowest order 4K field 
under test. The testing and relocation cycle is then repeated. As 
an example, suppose the program initially is in field 0, and 32K of 
memory is selected for test. The tests are run from field 0, and then 
the program relocates to field 7, then to fields 6, 5, 4, 3, 2, 1,0 
in that order. The program will not relocate to any field which is not 
included in the test limits. If fields 4, 5 and 6 were selected, relocation 



would be from to 6, then to 5 and 4. Fields through 3 and field 
7 would not contain the program again until included in the test limits. 

The program will not relocate if any of the conditions described below 
exist: 

°- A forced relocation has been made (section 8.2.7). 

b. Only one 4K field is selected for testing. 

c. An error was detected in all of the available 4K fields under 
test. 

d. ACS 9 is on a 1 to inhibit program relocation (section 8.2.5). 

The location of the program is indicated by the message "PROGRAM 
IS IN FIELD X", where X is the field number. This message occurs 
immediately after each program relocation. The message print-out 
may be deleted by placing ACS 1 1 on a 1 at any time. The print-out 
will resume when ACS 11 is placed on a 0. 

The program provides a degree of protection for itself by not 
relocating to any field which has an error. The number of the field 
in error is saved, and is compared to the destination field number 
before relocation takes place. If equal, the next lower field is 
setup as the destination providing it has no error. The first field 
found to be error-free is set up as the destination. Relocation will 
not take place if all fields have shown errors. The program will 
resume relocating to a field whenever the error condition does not 
exist. 

During the relocation process the program tests each data word 
transferred to the new field by performing the transfer, reading the 
word back and comparing the word with the correct data in the 
current field. This is done on a one for one basis until the process 
is completed. The entire 4K field is moved to enable loaders or any 
other data to be carried with the program . . If an error is found during 
relocation, the address in error, and the "good" and "bad" data words 
are printed. The error print-out format is described in section 6. 

One pass of the program is defined as all four tests performed on all 
of memory from each 4K field. 



-7- 



6. ERRORS 

6. 1 Error Print-outs and Description 

Immediately after the first error is detected, the header shown below 
is printed. 



TEST 
Where: 



OCTAL ADR. 



GOOD BAD FIELD WITH PAT. 



TEST 
OCTAL 

GOOD 

BAD 

FIELD WITH PAT, 



= the current test which detected on error. 

= the memory location which contains the data 
in error. 

= what the data should have been in that location. 

= the data as read from that location. 

= the current field under test which contains the 
pattern of the failing test. For test 1, this will 
equal "ALL", since test 1 writes an address 
pattern into ail memory under test. For test 
2, 3 pr 4, it will equal 0, 1,2, 3, 4, 5, 6 or 7, 
depending upon the amount of core memory 
available for test. 



ExampI 


e: 




TEST 


OCTAL ADR. 


GOC 


1 
2 
3 


060100 
060100 
023000 
04//// 
04///6 
01//// 


060100 
777677 
000002 


4 
4 
4 


777777 
////// 
777/// 



BAD FIELD WITH PAT. 

060000 ALL 
776677 6 
000003 2 
000000 4 
000000 4 
000000 4 



During test 1 address 100 in field 6 was found to be in error. From 
the example, it can be seen that bit 11 was dropped. Bit 8 was 
dropped during test 2 in the same address. Bit 17 was picked up at 
location 3000 in field 2 during the sliding 1 test. Three consecutive 
addresses in field 4 were in error during test 4. The test was reading 
in the reverse direction at the time, because the addresses are printed 
in descending order. Also, when checking rest of memory, location 
07777 in field 1 was found to be incorrect. 

After each print-out the program continues with the next memory 
location to test. 

Three AC switches may be used to control the error print-outs. 
Placing ACS on a 1 during the print-out will cause a program halt 



after completion of printing. ACS 1 on a 1 will inhibit the print-out 
and cause a program halt. Press CONTINUE to receive the error 
print-out and to continue testing, ACS 2 on a 1 will inhibit print-out 
and ring the TTY BELL for each error. The use of these switches is 
described in section 8.2 in more detail. 

6.1.1 PROGRAM RELOCATION ERROR 

This message will be printed upon detection of a relocation error. 
The error information will immediately follow as in the example 
below. After all errors have been printed the message "NO MORE 
ERRORS" is printed, and the program will then set up to relocate to 
the next lower field if one is available. 

Example: 

TEST OCTAL ADR. GOOD BAD FIELD WITH PAT. 

PROGRAM RELOCATION ERROR 

031000 740100 740000 

031001 611005 601005 

031002 760207 760007 

NO MORE ERRORS 

The above example shows those consecutive errors during program 
relocation to field 3. Field 2 would be set up for relocation. 
Location 1000 in field 3 should have contained a SMA instruction, 
but bit 11 was dropped during the transfer. Bit 5 was dropped in the 
JMP instruction in 1001, and bit 10 dropped in the LAW instruction 
in 1002. 

PRINT-O Ui S INHIBITED 

The above message is printed whenever 64 (decimal) consecutive 
print-outs have occurred. Error print-outs will be inhibited until 
after all fojr tests have been run eight times, after which the error 
print-outs will resume for 64 more print-outs. This feature is not 
used with program relocation errors. 

This feature is included to prevent lengthy error print-outs when the 
program is being run for an extended period of time unattended. 
Error print-outs may be resumed by restarting the program from 
location 200. 



6.1.3 P ROGRAM IS IN FIELD X 

Where "X" is a field number. This message is printed if one of the 
following conditions exist: 

a. The operator has specified a single field for testing and that 
field contains the program. Select another field, refer to 
section 4.1. 

b. The operator has requested to relocate the program to a 4K 
field which currently contains the program. See section 
8.2.7 for instiuction to force the program to another field. 

c. After every program relocation. 

6.1.4 ERROR IN SELEaED FIELD 

This message is printed when a forced program relocation is attempted 
and the program has previously detected a data error in that field. 
Type a new field number, or press carriage return to resume automatic 
program relocation. See section 8.2.7 for instructions to force the 
program to another field. 

7. Restrictions 



7.1 Starting Restrictions 

Start from 200 fo set up the test limits and ACS and to reinitialize 
the program. 

Start from 221 to retain the present program conditions. 

7.2 Operating Restrictions 

Don't use the STOP key to halt the program. Place ACS on a 1 . 

8.2 Applications 

To give the operator control of the program, the ACS were assigned 
unique functions. The ACS assignments and their effect on the 
program are described below. Please note that it is important that 
the program be halted with ACS rather than the STOP key. Using 
the STOP key may result in a halt while the program is in the process 
of relocating, which is disastrous. Any ACS listed may be raised or 
lowered while the program is running. The operation may not be 
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initiated immediately since most of the ACS are sensed only after all 
tests have been performed. 

8.2.1 Holt ofter Test or Error Print-out - ACS 

Placing ACS on a 1 at any time while the program is running will 
cause a halt after the current test is completed on one 4K field. The 
MO will = 1366. The ACS may then be changed if desired. Press 
CONTINUE to recover. If no ACS changes the program will resume 
the test which was interrupted. If ACS changes were made the new 
setting are stored and executed. 

Raising ACS during an error print-out will cause a halt at the same 
location mentioned above, after the print-out. 

8.2.2 Delete Error Print-out and Halt on Error - ACS 1 

ACS 1 on a 1 at any time causes all data error print-outs to be 
inhibited. A halt will occur with the MO = 1366 if an error occurs. 
Press CONTINUE to receive the error print-out and to resume testing. 
ACS changes may be made . 

8.2.3 Bell on Error -ACS 2 

ACS 2 on a 1 causes the program to ring the TTY BELL whenever an 
error occurs. This is convenient when testing with power supply 
margins. ACS 1 has no effect if ACS 2 and 1 should both happen 
to be on a 1 . If ACS and 2 are 1, a halt occurs after the bell. 
Proceed as described in 8.2. 1 . 

8.2.4 Test Selection - ACS 3 through 6 

Any one, or any combination of tests may be executed by placing 
combination of ACS 3 through 6 on a 1 . ACS 3 specifies test 1 ; ACS 4, 
test 2; ACS 5, test 3; ACS 6, test 4, The test specified by the most 
significant ACS will be performed first. 

If all four ACS are 0, all four tests are performed in sequence. 

The ACS may be changed while the program is running. The new 
tests will be recognized after the last of the current selection is 

performed. 

8.2.5 Inhibit Progrom Relocation - ACS 9 

The program normally relocates automatically as indicated by the 
print-outs. ";o retain the program in its current 4K 
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field place ACS 9 on a 1 at any time. Placing it on a enables 
relocation to resume. 

8.2.6 Inhibit "PROGRAM IS IN FIELD" - ACS 11 

The program normally prints the field number containing the program 
immediately after each relocation. The message may be suppressed 
by placing ACS 11 on a 1 at any time. To resume the print-out' 
place ACS 11 on a 0. This switch does not inhibit the message print- 
out when an operator error is made. 

8.2.7 Progrom Relocation - ACS 12 

The operator may relocate the program to any 4K field by specifying 
a forced relocation with ACS 12 on a 1. Use the following procedure: 

a. Halt the program with ACS 0. 

b. Place ACS 12 on a 1 and ACS on a 0. Press CONTINUE. 

c. A print-out will occur which instructs the operator to place 
ACS 12 on a 0. The program will loop until this is ojne. 

d. With ACS 12 on a the message GO TO FIELD is printed 
followed by the program waiting for a field number. 

e. Type the desired field number (0 through 7). 

f . Relocation is done immediately, and the program is executed 
in the new field. 

The program will not relocate again until restarted from 200 or 221, ^ 
or in step d above, press carriage return to resume automatic relocation. 

If a data error was previously detected in the new 4K field, the 
message "ERROR IN SELECTED FIELD" is printed, followed by step 
d repeated. Type another field number, or carriage return to resume 
normal operation. 

Each word transferred to the new field is tested in the same manner 
as described in section 5.3.1, Program Relocation, Print-outs occur 
for each relocation error. Step d will be repeated after all error 
reporting is done. Type another field nunb er, or carriage return to 
resume normal operation. 
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At times the program will automatically restart at 200 and print TEST 
LIMITS. This willoccur whenever a single field has been selected 
for testing, and the operator relocates the program to that field. 
New test limits must be specified since the program cannot run the 
tests on its own 4K field. Proceed as described in section 4.3. 

8.2.8 Request Keyboard Input - ACS 13 

ACS 13, when up, indicates to the program that the operator wishes 
to select one test, along with one or more addresses to be suppressed, 
and that one or more addresses are to be tested, disregarding all other 
addresses. ACS 13 is recognized immediately after restarting from 
200,221 or after pressing CONTINUE after a halt with ACS 0. 

The program will print the following information waiting for input 
from the keyboard after each line: 

TEST* - 
SUPPRESS - 
BLOCK # 1 - 
BLOCK # 2 - 

The program expects input information for each line. Typing only 
a carriage return indicates that the function represented by that line 
is not wanted. The next line will be printed. An explanation of 
each line follows. 

TEST ' - Type the test number desired (1 to 4). Any number less 
than 1 or greater than 4 is an error, and a ? will be printed, followed 
by TEST ^ - being printed again. If no particular test is wanted, type 
a carriage return only. The pattern used by the last test in progress 
will be used. In the case of no tests being previously run, test 1 will 
be used. TEST " is ignored. 

SUPPRESS - Error print-outs for one or more individual addresses, 
or a block of consecutive addresses may be suppressed. The addresses 
typed must be 5 digit octal numbers. Up to 256 (decimal) addresses, 
individual or a block, may be suppressed. Any amount over 256 
(decimal) is not an error, but will b e ignored by the program. 

Suppress on of individual addresses is indicated by separating each 
5 digit address with a colon, terminating the line with a carriage 
return after the last address or colon. A block is indicated by 
typing the first address of the block, and the last address of the 
block, seoarating the two by a comma. An automatic carriage 
return is provided after the second address is typed. The individual 
or block of addresses do not have to be typed in numerical order. 
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Any input which differs from the above will result in a ? being 
printeci, followed by SUPPRESS - being printed again. Typing a 
carriage return only indicates no addresses are to be suppressed. 

BLOCK '^l and BLOCK * 2- Any length block of consecutive 
addresses to be tested may be indicated in either BLOCK * 1 or 
BLOCK *2, or both. The block limits must not overlap the progra 
or exceed the amount of memory available. If the limits of either 
block overlap the program a message will be printed giving the 
location of the program. The current line will be re-printed, and 
the operator must then specify new limits. Indicate the block to be 
tested by typing the first address and lost address of the block, 
separating the two 5 digit addresses with a comma. 

The program handles the blocks to be tested as if each were a 
separate memory field. That is, if test 1 were selected, each 
address within either block would contain its own value. If any 
other test were selected, BLOCK 1 would contain the pattern, and 
BLOCK 2 would contain an all Ts pattern . The rest of memory 
outside of the block limits is ignored. Refer to section 5.2, 
Subroutine Abstracts, for a description of methods of testing, and 
patterns generated by each test. 

When two blocks are selected, their limits should not overlap when 
tests 2, 3 or 4 are selected. BLOCK 2 will always contain an all 
I's pattern with these tests, and error print-outs will occur if both 
block limits overlap. 

If only oneblockis selected, the pattern will be written in that 
block, and the rest of memory is ignored. A single block may be 
indicated after BLOCK 1 or BLOCK 2; one of the lines being left 
blank. 

If no blocks are to be tested type a carriage return after BLOCK * 1 
and BLOCK * 2. The program will start over with test 1, or the test 
selected in ACS 3-6. 

If a block is selected, program relocation will not take place. 

Press the RUBOUT key if a typing error is made. The routine will 
start over with "TEST" * -. 

If the pattern generated by test 4 is to be used, the operator may 
select one address, or a block which has an even total of addresses, 
i.e., 2, 4, 6, 10, etc. This is necessary due to the method of 
generating and reading the pattern. A guide would be to always 
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make the first address even (XXXO), and the last address of the block 
odd (XXX7). If an odd total is requested, invalid error print-oots will 
occur indicating an error at each location. This restriction applies to 
BLOCK '' 1 when two blocks are selected, or to a single block. 

Examples: 

Assume the program to be located in field 0. 

A. TEST # -4 
SUPPRESS - 

BLOCK * 1 - 10100, 10101 
BLOCK # 2 - 

The pattern generated by test 4 will be written and checked for error 
from 100 to 101 of field 1. The rest of memory (including field!) 
will contain an all Ts pattern, and will be ignored by the program 
since only one block is selected. 

B. TEST* -4 
SUPPRESS - 

BLOCK *\ - 10101, 10100 
BLOCK #2 - 

The program will perform exactly as described in example A. 

C. TEST # -3 
SUPPRESS - 

BLOCK #1 - 177T7 . 36000 
BLOCK #2 - 10000, 16000 

The pattern generated by test 3 will be written and checked for error 
in the first block from 36000 to ZTin . An all 1's pattern will be 
written and checked for error in the second block from 10000 to 16000. 

D. TEST* - 

SUPPRESS - 37777:36100:35000 
BLOCK *\ - 10000, 16000 
BLOCK #2 - 36000, 37777 

The pattern used by the last test in progress will be written in 
BLOCK 1, and an all I's pattern in BLOCK 2 (note that the blocks 
are reversed from Example C) . Any error at the two addresses 
36100 or ^7777 will not be rpinted. Address 35000 is meaningless 
since it is located outside the test limits. 
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F. TEST * - 8 

? 

TEST * -1 

SUPPRESS - 036000 
? 

SUPPRESS - 36000, ZTITI 
BLOCK #1 -40100, 40100 
BLOCK #2 - 00000, 16000 
BLOCK #2 - LIMITS OVERLAP PROGRAM 
(PROGRAM IS LOCATED IN FIELD 0) 
BLOCK *2 - 30000, 30100 

Example F indicates program response to format errors. The first, 
TEST *, is self-explanatory, since there are on ly 4 tests to choose 
from. The second, SUPPRESS, was in error because the number 
exceeds 5 digits. The program is assumed to be in field for these 
examples, and the first address selected for BLOCK 2 is within this 
area. The example shows the error message printed for BLOCK 2, 
followed by the operator's correction. 

G. TEST # - 2 

SUPPRESS - 10000, 10377 
BLOCK #1 - 
BLOCK #2 - 

The program will not loop on test 2, but will restart with test 1, or 
the test specified in ACS 3-6. TEST * is used only when one or more 
blocks ore specified. All of memory specified will be tested. 

Any errors detected within the block indicated after SUPPRESS will 
not be printed, regardless of which test is running. 

To return to normal program operation type a carriage return after 
each of the four lines, or restart the program from 200. 



9. Program Description 



The Extended Memory Address test is intended for use with POP- 15s 
equipped with 8K or more or core memory. A total of four tests are 
executed by the program. Each test writes a unique pattern into 
core memory and then checks for error. The first test writes the 
value of each memory address into that address, with all available 
banks containing the pattern. The remaining four tests write their 
patterns into one 4K field at a time, with rest of memory containing 
an "all ones" pattern. The patterns were chosen so as to detect word 
and bit errors, as well as shorted wires within any bank (see sect. 5.2). 
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Control of the program is given to the operator by means of the ACS 
The operator may halt the program inhibit error print-outs, substitute 
the TTY BELL for error indication, halt after print-out, select any 
one or group of tests, inhibit program relocation, specify any single 
address or group of addresses to be suppressed, any single address or 
up to two blocks of addresses for testing, relocate the program to any 
4K area, and vary the number of 4K fields to test. See section 8.2 
for the ACS designations for the above functions. 

The program automatically relocates after performing all specified 
tests on the amount of core memory selected. 



10. Listi 



"9 
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X A i ■ 1 ' 



-tnvn 




. ?^'/>\ 


^ .i i' A i' 1 


'/'^'^y,^ 


.; 7! i'; ,-) t^ 2 


;/ ;■ ■: -' 


■'?!'-^,;t'3 


V pi u ^ 


777777 


1/ P) r/ »1 ■- 


777777 



.T ! TLE 

.L'iC 

? 
3 

L Ai 



XAD15 



-1 
-1 



/' t1 ? /) 1/ 



, LOG 2^0 



^' ? i.1 ,' 


707762 


t' PI ? «5 1 


144270 


l'1 ? ? 


1 a 1 3 6 


i^0?p13 


pi 4 4 2 7 1 


i-l (71 ? P) 4 


103'^?5 


? ? P ^ 


-1 ^3662 


PI P) ? fi fr 


204012 


IX: ? PI 7 


P 4 4 1 3 


Pl ? 1 .' 


7601^00 


PI0211 


'-M 4 3 2 


00?1? 


("44322 


H0217 


? 6 4 1 3 


0MP14 


777700 


0PI21? 


?44324 


00?16 


777770 


'10? 17 


kM 4 2 6 6 


3022? 


144267 


(^0221 


202335 


Pie??? 


rM2320 


P10223 


707762 


PI0224 


102314 


0022=5 


143746 


02 2^- 


204301 


00227 


=544300 


00230 


741000 


00231 


600234 



/ 

BEGIN 



RTNl 



rPA 




njfM 


FLAGS 


JMS 


WHERE 


DAC 


INSFLD 


JMS 


SLMTS 


JMS 


SETAC 


LAC 


STBL 


HAT 


SUPTBL 


LAK. 




DAC 


BLOCl 


nAC 


eL0C3 


DAC* 


SUPTBL 


LAW 


-100 


DAC 


MAXERR 


LAW 


-10 


HAG 


SIXT4 


o?-^ 


NOPRNT 


LAC 


STLOOP-1 


DAC 


LOCAT+4 


EPA 




JMS 


locat 


^^^' 


PHDR 


LAC 


LASTi 


SAD 


FIRSTl 


SKP 




JMP 


.+3 


.EJECT 





/ENTER PDP-15 MODE 
/CLEAR PROGRAM FLaGS 
/SEE WHERE PROGRAM IS 
/SAVE FIELD NUMBER 
/SETUP ADDRESS LIMITS 
/SETUP ACS 

/POINTER FOR SUPPRESS TABLE 



/LAW = NONE SUPPRESSED 
/-64 DECIMAL 
/COUNTS 64 ERRORS 



/LAST FIELD TO TEST 
/FIRST FIELD TO TEST 
/THE TWO ARE EQUAL 



xa; 



;■ ii ? ^ ^ 
,• i-l ? 3 ,* 

. •/< ^s- 

/' I/! >■ ^ r 
!'• l^ ? 3 7 

/ ? 4 (.' 

■yT ? 4 P 

/' A? 4 3 

i" i/ p 4 4 

7 /. ? 4 ■=■ 
.' ■:•! ? 4 J > 
/■ v1 ? 4 7 
i^ ? 5 (1 

00?56 

00257 
(^026/1 
!a0?61 

H f 9 6 3 
/H" ? 6 4 

/0';'6'=> 

!-' f' ? 6 6 



'44271 

' "4 -14 3 

: - 525 

>•;- ''70 

■ 4 4 3 4 1 
7 S> 7.1 f 

■64325 

444341 

^ i<! '? 2 4 
744336 
1 i^ 1 3 6 
""44271 
7!^4/)43 
'■44325 

7 5 (^ >5 4 
5514406 

iM4272 
^04353 
^44200 
61^3273 
75C»i104 
5K4352 
740200 
601623 
P04272 
504404 
741200 
600321 



/ 
STOVER 



s -- 


INlSFLD 


J^'- 


•■eGIN+l 


L A- 


f 7 T H L 


-AC 


t IV W R D 


LA,. 


-10 


HA': 


WRCNT 


LAW 




OAC* 


ERWRD 


IS/ 


WRCNT 


JMH 


.-3 


DAC 


LAST 


J^S 


WHERE 


11 AT 


INSFLD 


LAC 


ERTBL 


OAC 


ERWRD 


LAS 




ano 


K177 


DAC 


MCWA 


ANO 


K40 


S?a;CLL 




JMP 


rcOMV 


LAS 




anh 


K20 


S?A 




JMP 


KYPRD 


LAC 


MCWA 


ANO 


K74K 


S.^A 




JMP 


DOALL 



/DO The- EQUAL CURRENT FIELD 
/SF'tiP NEW AHDRESS LIMITS 

/ERROR TABLE POINTER 



/LAW : NO ERROR IN TABLE 
/FILL TARLF WITH LAW'S 

/EQUALS LAST FIELD IN ERROR 
/SEE WHERE PROGRAM IS 
/SAVE FIELD NUMBER 

/RESTORE TABLE POINTER 

/READ AC SWITCHES 

/SAVE 

/BIT 12 A 1 : FORCE RELOCATE 
/RELOCATE 

/BIT 13 A 1 = KEYBOARD INPUT 



/DO ALL TESTS IF 



.EJECT 



p/ir.c 



V A r: \ s 







/ 

/ 1-. -< J '' I N E 


TEST 


SwITHES 3 TO 


< '/I ? ') 7 


5 > 4 ;> 7 2 


/ 


LAC 


MCWA 


-.IP?,- 


p; ,M 4 (^ 2 




A N -I 


K40K 


>''?l?71 


7 4^/200 




SZA 




L ';i?7v 


■'i ■ V5 ? 4 




JMP 


TSTl 


■/ 1/! ? 7 :< 


? P 4 4 1 


FXAM2 


LAr 


K20K 


f' ? 7 4 


■=: 4 2 7 2 




AMO 


MCWA 


(^027^ 


74C»200 




S2A 




!^ t1 ? 7 6 


^00453 




JMP 


TST2 


f1i?)?77 


204400 


FXAM3 


LAf 


K10K 


i^ 17) -^ v! I/' 


-04 272 




A H f' 


MCWA 


f0301 


7 4^200 




SgA 




£5 3 1^ P 


^00700 




JMP 


TST3 


f 3 R :^ 


204376 


EXAM4 


LAC 


K4K 


l^ .^ H 4 


S04272 




AND 


MCWA 


v" 3 1^ ■=■ 


74t»?00 




S2a 




(' '^ 3 <T f^ 


^01035 




JMP 


TST4 


'^0307 


444266 




IS? 


SIXT4 


ei 5^311' 


'=-00314 




JMP 


.+4 


^10311 


144267 




D?*^ 


NOPRNT 


VI031? 


777770 




LAW 


-10 


00313 


044266 




OAT 


SIXT4 


(^0314 


750004 




LAS 




1^031"^ 


S04375 




ANO 


K400 


l'!0316 


74PI200 




S2a 




f03l7 


600221 




JMP 


RTNi 


0a32t« 


603111 


/ 

/SETUP TO 

/ 

DOALL 


JMP 


CMOVE 






RUM 


ALL TESTS 


00321 


204272 


LAC 


MCWA 


00322 


244404 




XOR 


K74K 


003 23 


044272 




OAC 


MCWA 



/BIT 3 A 1 : TEST 1 

/BIT 4 A 1 = TEST 2 

/BIT 5 A 1 = TfST 3 

/BIT 6 A 1 = TEST 4 
/64 PASSES WHEN SKIP 
/CLEAR INHIBIT PRINT FLAG 
/RESTORE COUNTER 



/BIT 9 A 1 = DON'T MOVE 

/STAY IN CURRENT FIELD 

/DONE ALL TESTS. SETUP FOR RELOCATION 



/SET ALL TEST BITS 
/SAVE 



.EJECT 



r.F 



XAF 



/TF:ST 1. FACH Lf^CATrOf. WILL CONTAIN 
/OWN VALUE. ALL OF mefORY SPeCIFIFD 
/THE PATTEKAi. 



•,..->>. 


n--^ :70 


/ 

TSTl 


J".? 


WRTIS 


i' ;i :< ? •= 


7 6 '■' ? 6 1 




LA^. 


261 


■ ■?-?,^f- 


.44345 




DAT 


TNUM 


I' 7'?.? 7 


: / ? 7 3 3 




JMS 


SETl 


/ ' ,< ^ 


^ . 1276 




JMS 


C8ANK 


' ' 7 S ■ 


74li100 




SKP 




^ l^ " ^^ -■ 


^ f ;i 3 6 




JMP 


READl 


.■ ':^ :^ :s "! 


"'77776 


WBLKl 


LAW 


-2 


■/ n ,■« .5 '- 


••- 4 4 3 4 2 




OAC 


RPETE 


/■033'^ 


"^77775 




LAW 


-3 


(1 ?l 3 3 (^ 


44341 




riAC 


WRCNT 


?!0337 


P.?4?75 


WLOPl 


LAC 


MEMADR 


P10341'- 


'.4275 




nAC» 


MEMADR 


c^ P) 3 4 ] 


444342 




IS? 


RPFTF 


M l?l 3 4 ? 


* ,1 ^341 




JMP 


.-1 


'/if^:"'"' 


777776 




LAW 


-2 


C^0344 


'.4342 




OAC 


RPETE 


i^ 3 4 S 


4 4 4 3 41 




IS? 


WRCNT 


1^ 3 4 ^ 


(^■1?337 




JMP 


WLOPl 


tl t5 3 4 7 


444275 




IS? 


MEMAOR 


f^03 5i' 


444?77 




IS? 


CT4K 


C" M 3 5 1 


6 i^ 3 3 5 




JMP 


WLOPl-2 


f»035? 


76Pi'?(''0 




LAW 




fi(1353 


'-44320 




SAD 


ploci 


(1035- 


741t»00 




SKP 




?|?I35'5 


^ ? 4 4 




JMP 


BLKAl 


11 f5 3 5 6 


r/11344 




JMS 


NXTBNK 


(^f!357 


600330 




JMP 
.EJECT 


WBLKl-3 



ITS 

WILL CONTAIN 



/WRITE I'S INTO ALL OF MEMORY 

/TEST NUMBER 

/SETUP FOR FIRST FIELD 

/SEE IF IT HAS PROGRAM 

/NO 

/READ ANT TEST ALL 

/DELAY COUNTER 

/COUNTS 3 TIMES FOR EACH ADDRESS 

/WRITE C(MEMAOR) INTO SAME 

/DELAY 9 US 



/TOTAL 22.5 US BETWEEN WRITES 
/ADDRESS + 1 
/4K WHEN SKIP 
/WRITE IN NEXT 

/NO RLOCk iF : LAW 

/SETUP FOR BLOCK 2 
/SETUP FOR NEXT FIELD 
/SEE IF IT HAS PROGRAM 



page: 



X A I . 1 =. 



VJ)36"^ 
P«364 
C-i i^ 3 6 B 
'/ i1 3 6 f ■ 

1" 3 7 1' 
t^037l 
'.^•337? 
1^^373 
1^3374 
^1037^ 
1^0376 
i^ 3 7 7 

(^04H3 
1^04604 
P'04p!'^ 
f104H6 
J»i14k17 
l1041t' 
1^0411 
0041? 
^0413 

i;»04l4 



777776 
■;-'44343 
1 ZIP733 
744/102 
101276 
741^500 
^0(^420 
777766 
■^44342 
204275 
(7144274 
72^275 
^44275 
600400 
101377 
^00402 
444342 
600374 
444275 
444277 
600367 
760000 
■^44320 
741000 
602454 
744002 
101344 
600364 
600420 



/ 

/READ AiNP r-' 
/TO MI F I E L ^ 
/REPEAT T-r 
/ 



C'< i^OP ERROR. READ EROM LO EIELO 
A\n TMtlsi DECREMENT FROM HI TO LO. 
^EOUCNCE TWICE BEFORE FINISHING. 



REAOl 



RLOPi 



OAC 
J'-S 

STL 

SK- 
LAW 

n AC- 
LAC 
dac 

LAC» 

Sah 

J.M? 
JMP 

ISt 
JMl= 
1S2 
IS? 
JMP 
LAi-. 
SAp 
SKP 
JMP 
STL 
JMS 
JMP 
JMP 



-2 

LOOPT 

SETl 

CBANK 

RBAKl 

-12 

RPETE 

MEMADR 

PaTR 

MEMADR 

MEMAOR 

.+3 

ERROR 

.+3 

RPETE 

RLOPl+5 

MEMADR 

CT4K 

RLOPI 

PLOCl 

RLKBl 

NXTBNK 

RLOPl-3 

R9AK1 



/SETUP FOR 1ST FIELD 

/SEE IE IT HAS PROGRAM 

/NO 

/READ PACKWaRDS 

/LOOP i^ TIMES ON EACH READ 



/READ 

/COMPARE 

/OK 

/PRINT ERROR 



/LOOP 10 
/ADDRESS 
/4K WHEN 



TIMES 
+ 1 
SKIP 



/READ NEXT 



LAW 



/o Blocks if 

/SETUP FOR BLOCK 2 

/SETUP FOR NEXT FIELD 
/SEE IF IT HAS PROGRAM 
/READ FROM HI TO LO FIELD 



.EJECT 



^AGE 



X 'i i i'- 



' -'. " "" ' , ■ -17. 



/.5^2i 


' 1^722 


■ ■ ^l 4 ? 1 


- -5742 


/■ -AAp? 


7 4 1 :i 


'■A Ay y 


^ .1 1' 4 1 5 


/ ?1 4 ? /: 


777766 


.,■042- 


■ 4 4 3 4 2 


'/•iAi?t- 


^."4^75 


P 4 ? 7 


. 44P74 


71 f^^,-^/ 


'■^i?15 


/^431 


- 4 4 P 7 5 


:^ 4 3 :-■ 


*- ,v^ 4 3 5 


^ Zl 4 3 3 


1 ? 1 3 7 7 


^"0434 


*- 'l^ ? 4 3 7 


f/ /I 4 3 "S 


444342 


i^ C5 4 3 '=■ 


^ 7 C" 4 3 


i;i 4 3 7 


777777 


(10 4 4,"" 


^44 275 


,' i^ 4 4 1 


44275 


('■ t1 4 4 ; 


t 4 4 P 7 7 


!^ 4 4 3 


f C> T 4 2 4 


f 4 4 4 


7 ^ :;! .;i 


f 4 4 =S 


-44320 


?P)446 


"41.100 


f0447 


6152471 


l^045P 


102765 


(^0451 


60i»42l 


1^045? 


^.304l5 



/ 

LOOPl 



/ 

/READ 
/ 
PBAKl 



PAKl 



J^-f 



!. OOPT 
- E 4 [) 1 + ? 
F X 6 ,M 2 



TE?T 1 FPO.V- HI FIELD TO LO Fl 



ELD 



J'-'S . 

SKP 
JMP 

LAW 

oa;: 

LAC 
OAC 

LA(;» 

SAI") 
JMP 
JMS 
JMP 
IS? 
JMP 
LAW 
TAP 
DAC 
IS? 
JMP 
LAW 
SAO 
SKP 
JMP 
JMS 
JMP 
JMP 
.EJECT 



SETBAK 
CKraK 

LOOPl 

-12 

''PFTE 

MEMADR 

PATR 

MEMADR 

MEMAOR 

.+3 

ERROR 

.+3 

RPETE 

RAKi+4 

-1 

MEMADR 

MEMADR 

CT4K 

RAKl 

BLOCl 

RLKCl 
NiXPAK 
RBAKl+l 
LOOPl 



/nONE IF 

/REAH FORWARD ONCE MORE 

/CHECK FOR TEST 2. 



/SETUP FOR LAST FIELD 

/SFE if it has PROGRAM 

/NO 

/ALL DONE 



/READ ONE 
/COMPARE 

/PRINT ERROR 



/ADDRESS - 1 

/4K WHEN SKIP 
/READ NEXT 

/NO BLOCKS IF = LAW 

/SETUP FOR BLOCK 2 
/SETUP FOR NEXT FIELD 
/SEE IE IT HAS PROGRAM 
/READ FORWARD AGAIN 



PATE 



X A;!' 



r/, (/) 4 5 ? 

f 045^ 

fi 4 o 5 
;." 4 ti ^ 

1^0457 
??I4 6-" 
/I '/! 4 6 J 
17I|?!462 

f) 4 6 3 
P0464 

0^5466 
00467 
00470 
00473 
00472 
004 7 3 
00474 
0047S 
00476 
00477 
00500 
00501 
00502 
00503 
00504 
00505 
00506 
00507 
00510 



1 /! 3,1 70 
102733 
7 4 4,')00 
■> ^1276 

7 4 1 a 

^ ^» f,- 5 1 

777776 
4 4 34 2 
777775 
?44341 
204275 
740001 
C64275 
444342 
600470 
■'77776 
?44342 
444341 
600465 
444275 
A44277 
600463 
76'^^00 
■^44320 
741000 
602511 
100'511 
100562 
100511 
600637 



/ 

/tfst 

/FIEL 
/BOTH 
/IN B 

/afte 
/ 

TST2 



L0P2 



WL0P2 



CKB2 



2. WRITF C 
D A^D 7777 

[) I R E C T I N- 

oth direct 

R EACH .-.KI 

JMS 

CLL 

J MS 

SKP 

JMP 

LA^• 

DAC 

LAW 

GAC 

LAC 

CMA 

OAC» 

IS? 

JMP 

LAW 
OAC 
IS? 
JMP 
IS? 
IS? 
JMP 
LAW 
SAD 
SKP 
JMP 
JMS 
JMS 
JMS 
JMP 
.EJECl 



O^PLE'^ENT ADDRESSES 
7 -J ALL OTHER FIELDS. 
S (LO TO HI ANq hi T 

1"^^?. rFst of memory 
te and read. 

i-JRTlS 
SETi 

CBANK 

CKB2 

-2 

RPETE 

-3 
WRCNT 

MEMADR 

MEMADR 

RPETE 

.-1 

-2 

RPETE 

WRCNT 

WL0P2 

MEMADR 

CT4K 

WL0P2-2 

BLOCl 

BLKA2 

RST2 

RFWD2 

RST2 

TST2A 



INTO OME 
WRITE IN 

LO) AND Read 

Is CHECKED 



/WRITE I'S INTO ALL OF MEMORY 
/SETUP FOR FIRST FIELD 

/SEE IF IT HAS PROGRAM 

/NO 

/ALL DONE 



/DELAY COUNTER 



/ADDRESS 
/COMPLEMENT 
/ITE INTOSAME 
/DELAY 4.5 US 



/39 US TOTAL BETWEEN WRITES 

/ADDRESS + 1 
/4K WHEN 



/NO BLOCK IF 



LAW 



/SETUP FOR BLOCK 2 

/READ REST OF MEMORY 

/READ TESTED FIELD LO TO HI 

/RFAD REST OF MEMORY AGAIN 

/WRITE HI TO LO IN TESTED FIELq 



/ 

/SETUP TO KfVi RrST OF MEMORY, TmI^n R^aD AMD TEST 
/THE FIELD ^'ITh THE ADDRESS PATTERN. 



/ 



.' /t ' ' 1 


:■ / ' V J) 


RST2 


v- 




/ H 1 P 


7 A ' ^ 6 2 




LAK 


?62 


t'iiSl^ 


. 44.545 




OAT 


tnum 


/■ /SIC 


^ / 4 ,^ ? 1 




LAC 


LAST! 


(-•' i1 ^ 1 1- 


- 4 4 ,5 




SAO 


FIRSTi 


t« >=^1' 


^?'/Sll 


K'T\i2 


JMP» 


RST2 


P W 517 


>'^<i 500 




LAC 


FIRSTI 


/i^s?;' 


■44?75 


PST2A 


DAC 


MEMAOR 


£■' t', S 2 1 


7 7 pf 




LAW 


-10000 


^^0=5?? 


•44277 




OAC 


CT4K 


H B ? [^ 


?34^03 




LAC 


KRTN2 


P il tS ? 4 


('44307 




DAC 


EXIT 


.10'5?'7 


?04275 




LAC 


MEMADR 


(''0'526 


S44340 




SAD 


patbnk 


iiai;?? 


f •/! P 5 3 2 




JMP 


.+3 


','i053Pi 


1 i.iC'537 




JMS 


REST2 


/0'53l 


6,'-525 




JMP 


.-4 


i'053P 


=-44 301 




SAD 


LASTl 


0Pl^37 


A?(^Sll 




JMP» 


RST2 


00534 


? /■ 4 3 4 




LAC 


Patbnk 


00^3"^ 


:< 4 4 4 




TAD 


K10K 


C'!0S36 


t?-<>5?7^ 




JMP 


RST2A 



/TEST NUMBER 

/ONLY 1 SELECTED IF EQUAL 
/NONE TO READ 
/FIRST TO TEST 

/-4K 

/KRTN2 = LOCATION RTN2 



/DOES FIELD HAVE PATTERN 

/YES 

/NO. CHECK IT FOR 777777 

/SETUP FOR NEXT 

/IS IT THE LAST 

/YES. NO MORE TO TEST 

/ADD 4K TO ADDRESS 



■EJECT 



PATE 1 



> A 



/READ ALL OF MEMQKY EXCEPT FIELD WITH ADDRESS PATTERN. 



/ 5 3 "7 

c» i^ 4 :■ 

/: 5 4 ? 
(/Vl ^ 4 3 
R0544 
;;« 2 5 4 ^5 

1?10'547 

00S5? 

y) t^ 5 5 4 
1710555 
'/1 5 5 6 
P)C557 
(^ ?l 5 6 t^i 
(^0561 



00563 
00564 
{^0565 
00566 
00567 
00570 
00571 
0057? 
0057 3 
00574 
00575 
00576 
00577 
00600 
00601 
0060? 
00603 
00604 



• :^ '.' ,.• 
1.M323 
777777 
:' 44574 
?24?75 
C44?74 
7 4 1 t '^l 
17'1377 

444P75 

4(14^77 

1^ .:! ? 5 4 3 
76?^e0 
544320 
7 4 1 ,^ 

^ 'P 4 3 7 
7 4 4 :^' 2 
101276 
620537 
/■. 2 4 3 7 



:'00/)C»0 
2514340 
i?44275 

770000 

(-44277 
?y)4275 

74C»001 

'^44274 
224275 
544274 
741000 
101377 
444275 
444277 
600567 
76PI000 
544320 
600605 
602523 



F E S T ? 9- 

JMS 
LAW 
DAT 

ALLl LAC» 
SAP 
SKP 
JMS 
IS? 
ISr' 
JMP 
LAW 
SAO 
SKP 
JMP» 
STL 
JMS 
JMP» 
JMP» 

/ 

/ROUTINE TO READ 

/PATTERN FROM LO 

/ 

RFWD2 



CB^K 
-1 

patr 

MEMAOR 
PATR 

ERROR 

MEMADR 

CT4K 

ALLl 

PLOCl 
EXIT 

CBANK 
REST2 
EXIT 



/SEE IF FIELD HAS PROGRAM 

/COMPARE CONSTANT 

/REAn 

/DOES IT = 777777 

/OK 

/PRINT ERROR 

/ADDRESS + 1 

/4K IF 



/NO BLOCKS IF = LAW 

/SETUP FOR NEXT FIELD 
/NO MORE TO READ 



THE FIELD WITH THE ADDRESS 
TO HI . 



FWD2 



% 




LAC 


patbnk 


DAT 


MEMADR 


LAW 


-10000 


DAC 


CT4K 


LAC 


MEMADR 


CMA 




DAC 


PATR 


LAC» 


MEMADR 


SAP 


PATR 


SKP 




JMS 


ERROR 


IS? 


MEMADR 


IS? 


CT4K 


JMP 


FWD2 


LAW 




Sad 


RLOCi 


JMP 


RBAK2 


JMP 


BLKC2 



/FIELD WITH ADDRESS PATTERN 



/ADDRESS 
/COMPLEMENT 

/READ 

/COMPARE 

/OK 

/PRINT ERROR 

/ADDRESS + 1 

/READ ANOTHER 

/NO BLOCK IF = LAW 
/READ BACKWARDS 
/SETUP FOR BLOCK 



.EJECT 



= A G F 11 



:■' ^ 1 1 
>i 61" 
:^ '7! 6 1 ,^ 
(.1 6 1 A 
"'0615 
H0616 
110617 
{■1 *^ 2 1' 
'^f'16?l 
^^062? 

006?^ 

00626 

M0627 
06^631' 
'/10631 
: 1 6 3? 
n 6 3 3 
?0631 
0063"= 
'/ 6 3 ^ 



' ;''•_•> 4 
? '. -2^77 
,'44^75 
7 7 r ■/■ 
44^77 
777 774 
,'44 342 
v;/4 275 

7 4 i> >1 1 

■44 274 

J94P75 
"44^74 

' .1 :■' 6 ? 4 
101377 
6=11^626 
4 4 4 3 4 2 
600617 
777777 
344275 

,'4 4?75 

444277 
^ f" 6 1 2 
7 6 v^ 
■^44320 
' 7;i562 
^0?5?5 



/^nw RfAD SANE FIELD FROM h] 

/'^fST OF MF;^^RY. 

/ 

f RAK? 



BAK2 



LAC 


PaTBNK 


XIJH' 


K7777 


PAC 


"EMADR 


LAw 


-10000 


OAC 


CT4K 


LAW 


-4 


OAC 


RPETE 


I AT 


MEMADR 


CM4 




DAC 


PAIR 


LAC* 


MEMADR 


SAO 


PATR 


JMP 


.+3 


JMS 


ERROR 


JMP 


. +3 


IS? 


RPETE 


JMP 


RAK2+5 


LAW 


-1 


tah 


MEMADR 


DAC 


MEMADR 


IS? 


CT4K 


JMP 


RAK2 


LAW 




SAD 


RLOCl 


JMP» 


RFWD2 


JMP 


fLKD2 


.EJECT 





THFM f'TCHECK 



/FIELD KITH PATTERN 



/READ 
/COMPARE 

/PRINT ERROR 

/READ EACH 4 TIMES 

/ADDRESS MINUS 1 
/4K WHEN 



/HO BLOCK IF = LAW 

/EXIT AND RECHECK REST OF MEMORY 

/SETUP NEXT BLOCK 



P4GE 



y A n 1 ' 



;■: i^ ^ 3 7 


1 i;i .3 ^ 7 H 


• 51 6 4 /. 


?^4340 


f v^64l 


?44377 


.10 6 4? 


^44275 


'?!0643 


770fe100 


(10 6 4 4 


'^44277 


t1064'5 


?04275 


1^0646 


7 4 r^ 1 


?I0647 


t'^64275 


J1065t" 


mill 


C0651 


344275 


H065P 


1^44275 


00653 


444277 


ti0654 


600645 


Vi»65^ 


760000 


?I0656 


544320 


1^0657 


741.000 


00660 


602511 


00661 


100511 


0066? 


100562 


00663 


100511 



0066'' 
00665 
00666 
00667 
0^0670 
00671 
0067? 
00673 
00674 
00675 
00676 
00677 



?04340 
S 4 4 3 1 
600277 
1 03070 
204340 
744400 
CM 4 3 4 
044275 
744000 
101276 
600461 
600277 



/ 

/TFST ?A, 
/FROM HI 
/ 
TST2A 



TF 
, 



SAME PATTERN IN SAME FIELD 



/ 

PAK2A 



LA,- 
X0-< 
DAT 
LAW 
PAT 

LAC 

CM A 

uAC« 

LA^ 

Ta^i 

DAT 

isf 

JMP 
LA« 

Sah 
SKF 
J^'lP 
JfiS 

JMS 

JMS 



WRTIS 

PATgNK 

K7777 

MEMADR 

-10000 

CT4K 

MEMAOR 

mEmadr 

-1 

MEHADR 

MEMADR 

CT4K 

RAK2A 

RLOCl 

RLKA2 
RST2 
RFWD2 
RST2 



NXPT2 



LAC 

Sad 

JMP 
JMS 
LAC 
TAf) 
OAC 
DAC 
CLL 
JMS 
JMP 
JMP 



PaTbNK 

LaSTI 

FXAM3 

WRTiS 

PATBNK 

K10K 

PATBNK 

MEMADR 

CBANK 

L0P2+3 

EXAM3 



/WRITE I'S IMTO ALL OF MEMORY 
/FIELD WITH PATTERN 



/ 

/SETUP TO WRITE ADDRESS PATTERN IN NEXT 

/SEQUENTIAL FIFLO 

/ 



/ADDRESS 
/COMPLEMENT 
/WRjTE INTO SAmE 

/ADDRESS MINUS i 

/4K WHEN 

/NO BLOCK IF = LAW 



/SETUP TO CHECK REST OF MEMORY 
/READ LO TO HI ; HI TO LO 
/RECHECK REST OF MEMORY AGAIN 



/CURRENT TEST FIELD 
/Was IT THE LAST 
/YES. ChECk Eqr TEST 3 
/WRITE I'S INTO ALL OF MEMORY 

/ADD 4K to CURRENT FIELD 
/NEW FIELD 



,EJECT 



'GE 1 < 



1/10701^ 


760263 


»0701 


"44345 


'" H 7 ? 


1 03070 


('•'Jild?. 


li'?733 


'■ "704 


744000 


'/170=5 


1;^1276 


/<07ia6 


7 41.^00 


(^0707 


600724 


('•071f 


?i/14346 


00711 


!» 4 4 3 4 4 


0071? 


?04344 


1^071? 


f/44274 


00714 


744000 


00715 


204274 


00716 


!'!64275 


00717 


740010 


fi0720 


"44274 


00721 


444275 


00722 


444277 


007?:^ 


600716 


00724 


760000 


0072S 


"'44370 


00726 


741000 


H0727 


602547 


00730 


100734 


00731 


100757 


0073? 


I00734 


00733 


601007 



/ 

/TFST 3. SLI't A 
/PFP riELO T-; CHr 
/WILL CONTAp. ALL 
/EACH WRITE A NO ^ 
/ 
TST3 



/ 

L0P3 



1 TMRU 1 FIELO. REPEAT 18 TIMES 

CK EACi- BIT PrsiTIOM. REST OF MEMORY 

I'S. CHECK REST OF MEMOPY AFTER 
EAO IN THE EIFLD REING TESTED 



WL0P3 



CKP3 



L A IN 


263 


HaC 


TNUM 


JMS 


WRTlS 


JMS 


SETl 


CLL 




JM'; 


CBANK 


SKP 




JMP 


CKB3 


LAC 


Kl 


DAC 


BITN 


LAC 


RITN 


OAC 


PATR 


CLL 




LAC 


PATR 


OAC» 


HEMADR 


RAL 




OAC 


PATR 


IS? 


MEMADR 


IS? 


CT4K 


JMP 


WL0P3+1 


LAW 




SAD 


BLOCl 


SKP 




JMP 


BLKA3 


JMS 


RST3 


JMS 


RFWD3 


JMS 


RST3 


JMP 


CKISb 


.EJECT 





/TEST NUMBER 

/WRITE I'S INTO ALL OF MEMORY 

/SETUP FOR 1ST FIELO 



/SEE IF IT HAS PROGRAM 

/NO 

/ALL DONE 

/Kl = 1 

/C(BITN) = STARTING BIT POSITION 



/WRITE THE BIT 
/NEXT POSITION 

/ADDRESS + 1 
/4K WHEN SKIP 
/WRITE IN NEXT 



/SET UP TO READ REST OF MEMORY 
/READ FIELD LO TO HI 
/RFCHECK REST OF MEMORY 

/See ir is positions yt 



Pif.r 1.. 



yAi:i=- 







/SFTUP 
/ 

f-ST3 


TO RE-sD RFS 


T nr MEM 


f i?7,^.; 


■ '.'i^0 







i-. i^ 7 3 - 


■^iM301 




LAC 


LASTi 


■'(■■^7,"S^ 


't4^ <00 




SAIl 


FIRSTl 


rCi737 


f-5-/7 34 


PTN3 


JMP» 


RST3 


1/ ul 7 4 f- 


yr;i43f!0 




LAC 


FIRSTl 


'/ 7 4 1 


■ d4?75 


RST3A 


OAC 


MEMAOR 


1/ (?) 7 4 ;,■ 


•'7 ■'■•/' 00 




LAW 


-10000 


1^0747 


44 277 




DAP 


CT4K 


1^0744 


'P A 4 .'1 4 




LAC 


KRTN3 


(/1074'> 


4 4 307 




OAC 


EXIT 


B 7 4 6 


P i^ 4 2 7 5 




LAC 


MEMADR 


(?0747 


5 4 4 34 




Sad 


paTbnk 


t^075P 


600753 




JMP 


.+3 


^^0751 


100537 




JMS 


REST2 


1^'075? 


•^00746 




JMP 


.-4 


00753 


'^44301 




SAO 


LASTl 


00754 


620734 




JMP, 


RST3 


00755 


3 4 4 4 00 




TAD 


K10K 


00756 


600741 




JMP 


RST3A 



/LAST FIFLn TO TEST 
/FIRST TO TEST 
/NONE TO TEST 



/-4K 

/4K COUNTER 

/KRTM3 = LncATlON RTN3 



/FIELD WITH PATTERN 
/READ REST OF MEMORY 



/NO MORE TO READ 
/ADD 4K TO CURRENT 
/TRY NEXT 



.EJECT 



AGf 



■7t, 7 


■ • •!^0 


-■,' / 6v 


y ■ ,S4 


.■■I 7 61 


■, 44575 


' ■■ /I 7 6 " 


~ 7 1-* ;•! c; 


.■/7b:'' 


44277 


■ <J 7 6 ^ 


' 1 4 "5 4 4 


»7 5^- 


'44274 


.■•;'"' A ^ 


744000 


.' ■:. 7 


??4275 


,' ;-i 7 7 .' 


',44274 


r 3 7 7:1 


741000 


fl077> 


1 P11377 


' PI 7 7 ■< 


704274 


i^f1774 


741 200 


P'077'^ 


'44002 


^'077^ 


■' 4 ?■ yi 1 


00777 


44274 


Vl?.'\'-- 


-■ 4 4 ;j 7 5 


(» 1 i? <"! 1 


444277 


/ 1 ^ P 


'-TIP 767 


■n :^ 


7 5 1,%1 


010 0^ 


"^44320 


v" 10 01^ 


'-?'M57 


1 '^ 


607t61 


f- 10 7 


? / 4 3 4 4 


0101 i' 


1)44405 


01011 


^,'^1^21 


0101? 


744010 


0101? 


; 4 4 3 4 4 


01014 


204340 


1 1 K 


: 44275 


>• 1 1 r 


77P'000 


01017 


044277 


01020 


'-00712 



/XAnQ5-TAP" 
rHy t>^ TEST 

PF'«D3 



01021 


^04340 


0102? 


^44301 


01023 


C0!?303 


01024 


1 03070 


010 2'= 


'-'04340 


0102^ 


3 44 400 


01027 


1-44340 


0103/ 


044275 


1' 1 3 1 


744 000 


•103? 


1 511 276 


'.'■ 10 3^ 


'-•"0710 


: ' 1 3 '- 


^ 00 303 



BiTTrPN F^OM LO TO HI 



patbnk 



LA/ 


-10000 


OAC 


CT4K 


LAT 


RITN 


OAC 


PATR 


CLL 




rWD3 LAC» 


"EMAOR 


SAO 


PATR 


SKP 




JMS 


ERROR 


LAC 


PATR 


Si\A 




STL 




RAL 




HAP 


PATR 


\St 


ME^ADR 


IS^ 


CT4K 


JMt 


FWO3 


LAt^ 




SAO 


PLOCl 


JMP» 


PEt^D3 


JMP 


PLKC3 


/ 




CK18R LAC 


RITN 


SAD 


K400K 


JMP 


NXPT3 


RCL 




DAC 


PITN 


LAC 


PATBNK 


OAC 


MEMAOR 


LAk« 


-10000 


OAC 


CT4K 


JMP 


WLOP3-3 


/ 




/SETUP NEXT FlEln 


WITH BIT 


/ 




NXPT3 LAC 


Patbnk 


SAn 


LASTl 


JMP 


EXAM4 


JMS 


URTlS 


LAC 


PATBNK 


tao 


K10K 


OAC 


PATBNK 


HAT 


MEMADR 


CLL 




JMS 


CBANK 


JMP 


L0P3+3 


Jh«P 


FXAM4 


.EJECT 





/FIELD ivITH BIT PATTERN 



/4K COUNTER 

/CURRENT STARTING POSITION 



/READ 

/COMPARE 

/OK 

/PRINT ERROR 



/NEXT BIT POSITION 

/ADDRESS + 1 
/4K WHEN SKIP 



/NO CHECK IF = LAW 
/EXIT 



/DONE IF = 400000 
/SETUP FOR NEXT FIELD 

/CURRENT FIELD 



/ALL DONE. CHECK FOR TEST 4 
/WRITE I'S INTO ALL OF MEMORY 

/ADO 4K 
/NEW FIELD 



■=iGE 



." 1 ? 3 ^ 
?1K37 
/ 1 ? 4 . 

■? 1 ? a ? 
v' 1 f1 4 3 
i^lfl44 
(•'104'^ 
'/ 1 f 4 (^ 
m^47 

i' 1 ?! '^ 1 

1 C^ 5 4 

1 f» 5 (^ 

1^ 1 f 6 (■' 

f 1063 
t»lt^64 
0106B 
Hl(166 
V11067 



PI1071 
01PI7? 
tn073 

(?I1074 

t*1075 
H1C^76 
I^1PI77 
fi 1 1 H f ' 



: vi 3 .^ 7 
7 A -^ ^ 6 4 
■ 4 4,-^45 
' 44^73 

: ,.1 ^ 7 3 3 

- i 4 ..) 

- /1276 
"'41 J H 
^ ■"" 1 ;^ 6 2 
?'4?73 
, 44?74 
777774 
•'44 342 
P04274 

74P/'01 

'64275 

4 4 4 ,^ 4 2 

f^ i?l 1 3 S 4 

444275 
444277 

7 60-100 
544320 
741 000 

6';i?6i0 

1 /H 126 

i.ni02 



704273 
740200 
>.01215 

740001 

P44273 
704340 
1-144275 
770000 
;:'44277 
^01 046 



/ 

/TEST 4 
/ALTERN 
/ E R M L 
/READ T 
/AETER 
/COMPLE 
/ 
TST4 



. WRITE A PATTERN CONSISTING OE 
ATE N'lRDS OE 777777 ANQ 000000, 

TO i-i, anp ^'I to lo. The pattern 

HE SAf-'E way. CHECK REST OE MENORy 
EACH WRITE ANn READ SEQUENCE, THEN 
MENT THE PATTERN AND REPEAT. 



IS 



LOP4 



WL0P4 



CKB6 



JHS 
LAW 
OAC 

nzM 

JMS 

CLL 

JMS 

SKP 

JMP 

LAC 

DAC 

LAk 

DAC 

LAC 

CMA 

nAC» 

IS? 

JMP 

\Si 

IS? 

JMP 

LAW 

SAO 

SKP 

JMP 

JMS 

JMS 



WRTlS 

764 

TNUM 

CNTRL 

SETi 

CBANK 

CKB6 

CNTRL 

PATR 

-4 

RPETE 

PATR 

MEMADR 

RPETE 

.-2 

MEMADR 

CT4K 

WLOP4 

RLOCl 

RLKA4 
RFWD4 
REST4 



/CHECK 
/ 



FOR COMPLEMENT PATTERN 



LAC 
SZA 
JMP 
CMA 
DAC 
LAC 
OAC 
LA^. 
DAC 
JMP 



CNTRL 

TST4A 

CNTRL 

PATBNK 

MEMADR 

-10002 

CT4K 

LOP4+3 



/WRITE I'S INTO ALL OF :EMORy 

/TEST NUMBER 

/SETUP FOR FIRST FIELD 

/SEE IE IT HAS PROGRAM 

/NO 

/ALL DONE 

/4 WRITES PER LOCATION 

nnni or 000000 

/WRITE 

/4 WRITES WHEN SKIP 

/4K WHEN SKIP 

/NO BLOCK IF = LAW 



/READ LO TO HI IN TESTED FIELD 
/READ REST OF MEMORY 



/WRITE BACKWARDS 

/FIELD WITH PATTERN 

/MINUS 4K 

/WRITE COMPLEMENT 



.EJECT 



Fanf 



17 







/SfTUP TO f<E^O 
/ 


RFST OF MEMORY 


1 1 V. ■■ 


■ ■ i't^ 


' E b T 4 


i^ 




.■■ll;i3 


•■ 1.: ;oi 




LAC 


LASTl 


-■11.!'- 


~ M <: S 




SAU 


FIRSTl 


/UK^'; 


^?1 1!'? 


PTM4 


JMP9 


REST4 


i^llvlf 


? ;." d 3 11 




LAC 


FIRSTl 


i^ 1 1 CI 7 


44275 


REST4A 


OAf; 


MEMAOR 


ftlll.' 


" 7 C" ,-i 




LAW 


-10000 


mil-. 


'■i4?77 




OAC 


CT4K 


'-' 1 1 1 ? 


? ^1 4 ,; c 5 




LAC 


KRTN4 


> i 1 1 .:« 


.■44307 




OAC 


EXIT 


■<a 1 1 ^ 


5 14 275 




LAC 


MEMADR 


K'lii^ 


^^^4340 




SAO 


patbnk 


:^ 1 1 1 1^ 


^-'1 121 




JMP 


.+3 


!-' 1 1 1 7 


1 .■';'537 




JMS 


REST? 


(^11?(/- 


^ M114 




JMP 


. -4 


caipi 


-44301 




Sao 


LASTl 


^11?? 


^21 IPI? 




JMP* 


REST4 


ni2>'^ 


? (?l 4 3 4 




LAC 


PATBNK 


J\\7c 


,<44400 




TAD 


K10K 


^\\2<^ 


i'/.l 1?I7 


/ 


JMP 


REST4A 






/READ THE 


FIELD 


WITH THE WORD PaTTFRN 






/HI, THEM 

/ 

RFW04 


HI TO 


LO. 


'ni2t 


:-i^(;VJPl0 







V'Wll 


?!;i4340 




LAC 


PATBNK 


0113'/ 


''44?75 




OAC 


MEMADR 


C1131 


7 7-^ '^00 




LAW 


-10000 


?I1132 


k' 4 4 2 7 7 




DAC 


CT4K 


P113:^ 


"/14273 


PBLK4 


LAC 


CNTRL 


H1130 


"44274 




OAC 


PATR 


«^1135 


777774 




LAW 


-4 


1^1136 


(44342 




DAC 


RPETE 


'511137 


??I4?74 




LAC 


PATR 


?H14f 


74f 1^01 




CMA 




01143 


/ 4 4 2 7 4 




OAC 


PATR 


«114? 


224275 


FWD4 


LAC» 


MEMADR 


(31143 


S44274 




SAO 


PATR 


1711144 


6(^1147 




JMP 


.+3 


1^1145 


15^1377 




JMS 


ERROR 


511146 


1^551151 




JMP 


.+3 


« 1 1 4 7 


444342 




ISH 


RPETE 


0115t' 


601142 




JMP 


FWD4 


fll5l 


444275 




IS? 


MEMADR 


3115? 


444277 




IS? 


CT4K 


01153 


601135 




JMP 


RBLK4+2 


P1154 


76«000 




LAW 




t'llS"^ 


^44320 




SAO 


BLOCl 


f'llS^ 


6(^1160 




JMP 


RBAK4 


s^ll57 


'^24307 




JMPfl 


EXIT 



/LAST TO TEST 

/ONLY 1 SELECTED IF E(JUAL 

/NONE TO READ 

/FIRST TO TEST 



/KRTN4 = LOCATION RTN4 



/DOES FIELD HAVE PATTERN 

/YES 

/READ REST OF MEMORY 

/DOES IT = LAST TO TEST 

/NO MORE TO READ 

/CURRENT FIELD 
/♦ 10000 



FROM LO TO 

/FIELD WITH PATTERN 

/MINUS 4K 

/CNTRL = 777777 OR 000000 

/READ EACH LOCATION 4 TIMES 



/READ 

/COMPARE 

/OK 

/PRINT ERROR 



/ADDRESS + 1 
/4K WHEN SKIP 
/READ ANOTHER 

/NO BLOCK IF = LAW 
/READ BACKWARD 
/SETUP FOR NEXT BLOCK 



.EJECT 



P 4 G E 1 



X Af^l' 



'/ 1 1 6 1 

0116? 
1^1164 

(ni65 

(^1166 
01167 
f!ll7i^ 
!^1171 
«117? 
01173 
01174 
c) 1 1 7 '^ 
1 1 7 f- 
H1177 
1 ? H 

fllPPIl 
(^12t^? 
01?H3 

l^l?06 
?>l?t17 
H j_ ? 1 1* 

1^1211 
t'l?!? 
01213 
f)12l4 



;i4377 
• 4 4 ? 7 5 
7 7 yi :•'- fl 
44277 
:> 514273 
74Pi^01 
I? 4 4 2 7 4 
777770 
,'■4 4 34 2 
?H4?74 

7 4 ifl ',/! 1 
-44274 
'^24?75 
644274 
61^1 202 
101377 
-^01204 
444342 
601175 
777777 
344275 
,M4275 

444277 
6W11170 
7601^00 
■=544320 
621126 
6?4307 



/REAT SAME FIELD WITH WORD PATTERM FRO" 
/Ml ^0 LO, Tt-fN -ECHFCK REST OF MFf'CRY, 



f-BAKi 



BAK4 



LAC 


patbnk 


X'JH' 


K7777 


DAC 


memadr 


LA» 


-10000 


OAC 


CT4K 


LAC 


cntrl 


CMA 




OAC 


patr 


LA'"' 


-10 


OAC 


RPETE 


LAC 


PATR 


C^IA 




OAC 


PATR 


LAC» 


memadr 


Sap 


patr 


JMP 


.+3 


jmS 


ERROR 


JMP 


.+3 


IS? 


RPETE 


JMP 


RAK4+5 


LAW 


-1 


TAP 


MEMADR 


OAC 


MEMADR 


IS? 


CT4K 


JMP 


PAK4 


LAW 




SAO 


RLOCl 


JMP« 


RrWD4 


JMP* 


EXIT 



/CURRENT TEST FIELD 

/MINUS 4K 

/CNTRL : 777777 OR 000000 

/READ EACH LOCATION 8 TiMES 



/READ 

/COMPARE 

/OK 

/PRINT ERROR 



/MINUS 1 
/ADDRESS MINUS 1 

/4K WHEN SKIP 
/READ ANOTHER 

/NO BLOCK IF = LAW 
/READ REST OF MEMORY 



.EJECT 



WgE !■ 



X A f ! 1 ■ 







/ 

/TFST 4A. A'KlTF IN SAMf FIf 

/ 


H 1 ? 1 IS 


777777 


/ 

TST4A 


LAW 


-1 


('U^ie 


'■•44^73 




OAC 


CNTRL 


/1?17 


, 4 4 ? 7 4 




DAT 


PAIR 


v^X??V 


-^'-14340 




LAC 


PATBNK 


(H ? ? I 


? 4 4 ,5 7 7 




XO^^ 


K7777 


■•^l??-- 


/44275 




OAC 


MEMAOR 


i^l2;:?-' 


7 7 ii '/) 




LAk/ 


-10000 


(^n??" 


'44277 




FIAC 


CT4K 


■;n?2'- 


777760 


L0P4A 


LAW 


-20 


i?!l?26 


44342 




HAC 


RPFTE 


fil?27 


'-; ^-1 4 ? 7 4 




LAC 


PAIR 


(^IPSl- 


7 4 ?■ »1 1 




C'-'t 




31?31 


:'44?74 




DAC 


PAIR 


(^1?3? 


. 64275 




DAC* 


MEMADR 


in?33 


4 4 4 3 4 2 




ISr' 


RPFTF 


?n234 


f-'A} 232 




J«1P 


.-2 


tn?3^ 


''inn 




LAW 


-1 


Cl?36 


^44275 




TAO 


MEMADR 


C.1237 


1.: 4 4 ? 7 5 




DAC 


MEMADR 


P 1 ? 1 P 


444277 




IS? 


CT4K 


1^1?41 


601225 




JMP 


L0P4A 


en ? 4 ? 


76i7'l00 




LAk 




H 1 ? 4 3 


^44320 




SAH 


BLOCl 


'/ 1 ? 4 4 


7411^00 




SKP 




tn?4'^ 


^' 1^2642 




JMP 


RLKF4 


(^1?46 


?'^4?73 




LAC 


CNTRL 


(^1?47 


7 4 1^ if) 1 




CMA 




f»125(' 


''44273 




DAC 


CNTRL 


(^1?^1 


101126 




JMS 


RFWD4 


i^l?5? 


101102 




JMS 


REST4 


J'l?53 


20 4 34 




LAC 


PATBNK 


f 1?54 


['44275 




DAC 


MEMADR 


C11?55 


204273 




LAC 


CNTRL 


01256 


740200 




SZA 




C51257 


601262 




JMP 


NXTP4 


0126H 


044274 




DAC 


PATR 


f11?6l 


601220 




JMP 


TST4A+3 



FIELD FROM HI TO LH. 



/CURRENT FIELD wiTH PATTERN 



/WRITE EACH LOCATION 16 TIMES 



/WRITE 

/16 WRITES WHEN SK P 



/ADDRESS - 1 

/4K WHEN SKIP 
/WRITE ANOTHER 

/NO RLOCK IF = LAW 

/SETUP FOR NEXT BLOCK 
/CNTRL = 777777 OR 000000 

/COMPLEMENT FOR READ FORWARD 

/READ FORWARD 

/READ REST OF MEMORY 



/CHECK FOR COMPLEMENT 



.EJECT 



PAGE 2 







/ 

/SFTUP TO 

/ 

NXTP4 


l^■ ►< I T E IN 


NEXT FIELD 


■ 1 y-, "; 


-■ .'■ /. 5 4 {^ 


LA'- 


"ATBNiK 


■• 1 ? •> - 


-44 51^1 




Sad 


lasti 


1-1 ?6-: 


• i:\iP7 




iM ^ 


EXAM4+4 


■ t ? - 


* ,'3/70 




JMS 


WRjlS 


■■'■ 1 ? 6 c 


■J ' i ? 4 P) 




LAC 


patbnk 


''M?67 


? 44 4i^0 




TAD 


K1P!K 


t*l?7,' 


"44540 




OAT 


patbnk 


l^ 1 ? 7 1 


■44?75 




PAC 


MEMAOR 


,n?7? 


7 4 4 /! (? 




CLL 




(''i?7;^ 


:?1 276 




JMS 


CBANK 


:^l?7i 


r^l <546 




JV,P 


L0P4+3 


•:"i?7'5 


^ ? '/ 3 (1 7 




JMP 


FXAM4+4 






/ 

/ROUTINE 

/ 

CBANK 


TO ?EE IF 


TESTED FIE 


C' 1 ? 7 6 


.' "^(-1/5 0^ 


9 




Hl?77 


77f ?IC'0 




LA« 


-10000 


013t)i* 


';'44277 




OAC 


CT4K 


P1301 


1 ^1360 




JMS 


WHERE 


Cil3«? 


'^44?75 




SA'' 


MEMADR 


i' 1 3 i? 3 


6/11317 




JMP 


CBNK-4 


t^ 1 3 PI 'I 


-^21 276 




Jt^P» 


CBANK 


P13fl=. 


^^41276 


NOMOR 


IS/ 


CBANK 


cn 3 1^ '^ 


6 ? 1 ,? 7 6 




JMP* 


CBANK 


("1307 


? ? 4 ? 7 5 




LAC 


MEMAOR 


'? 1 3 1 ;■■ 


T44400 




TAL' 


Kl^lK 


(?1311 


?44275 




DAC 


"EMADR 


?'131? 


74^400 




SNL 




l'1313 


,'44340 




DAC 


PATBNK 


C^1314 


77?000 




LAW 


-10000 


^131=^ 


^■44277 




DAC 


CT4K 


P1316 


6(;«1277 


/ 


JMP 


CBANK+l 


i^l317 


204275 


LAC 


MEMADR 


0132? 


344400 




TAD 


K10K 


«1321 


ii44275 




HAG 


MEMADR 


5^132? 


1PI1344 




JMS 
.EJECT 


NXTBNK 



/CURRENT FIELD 

/SETUP TO RELOCATE 

/WRItE I'S INjO ALL OF MEMORY 

/PLUS 4K 



/CURRENT PROGRAM FIELD 
/NEXT TO TEST 

/EXIT 
/RETURN +1 



/CURRENT +4K 



/-4K 

/4K COUNTER 

/EXIT AND TEST NEW FIELD 



PRge '?' 



^ A f! 1 S 



13?.< 


. ■''',3l?0 


ce\K 


f 




.■ 1 3 X t^ 


■ ^ ' '.^ i'l 




L^i." 


-100?I0 


13?=^ 


4^ 577 




n A r 


CT4K 


.'1 3?*^ 


''-'^27'i 




Ti- 


MEMAOR 


:'13<^7 


--';4 5l^l 




P i 


LASTl 


ta331' 


'■ ? 4 ? (? 7 




j'»iP» 


EXIT 


."1331 


1 --1 15 6 




J '-IS 


WHERE 


.'133? 


'- 4 rf 2 7 5 




?A.-l 


MEMAOR 


: 1333 


"'■41'/)00 




SKP 




C' r' 3 <: 


^2\Z2Z 




jr^p» 


CBNK 


V- 1 3 3 ~ 


'^44301 




SAO 


LASTl 


i'' 1 3 3 6 


fi24307 




JMP« 


EXIT 


■1337 


3 4 4 4 H 




TAO 


K10K 


'/!134f'- 


t"44?75 




OAC 


MEMADR 


f^l34l 


544340 




SAO 


PATBNK 


01342 


601335 




JMP 


.-5 


P1343 


621323 


/ 


JMP« 


CBNK 






/ROUTINE 

/ 

N X T B N K 


TO CHECK 


EOR LAST FIELD 


^'1344 


1*00^00 


ITI 




i? 1 3 4 b 


75i''i^P'4 




LAS 




(''^134 6 


7411PI0 




SPA 




t^ 1 3 4 7 


1 31364 




JMS 


HALT 


•:^135f^ 


77fi';^00 




LA^. 


-10000 


in351 


344275 




TAD 


MEMAOR 


!^13'52 


=44301 




SAP 


LAST! 


!'n353 


'^^isas 




JMP 


NOMOR 


171354 


:'711344 




LAC 


NXTBNK 


iilSS^ 


740010 




RAL 




i)1356 


204275 




LAC 


MEMADR 


P'13B7 


601312 


/ 


JMP 


NOMOR+5 






/ 

/ROUTINE 
/ 
WHERE 


TO DETERMINE WHERE PROGRAM IS 


Pise?- 


00("if500 


? 




f^l36l 


201360 




LAC 


.-1 


P!1362 


■504403 




AND 


K70K 


?1363 


621360 


/ 

/ 


JMP» 


WHERE 



/HALT ROUTINE. PRESS CONTINUE TO RESUME 
/TESTING, OR IF ACS CHANGES, TO EXECUTE 
/NEW PARAMETERS 



(11364 


000000 


HALT 







H136'5 


740040 




MLT 




f*1366 


750004. 




LAS 




01367 


740010 




RAL 




H 1 3 7 


741 100 




SPA 




"'1371 


'21364 




JMP» 


HALT 


0137? 


74 20 




RA- 




^■•13 7? 


R M 4 4 6 




A Aj 1 ■ 


K177 


'1374 


^^44272 




S A r; 


MCWA 



/SEE WHERE PROGRAM IS 

/NEXT TO TEST 

/ADD 10K 

/READ ALL I'S 

/SEE IF LAST 

/NO «ORE TO READ 

/NEW FIELD 



/EXIT 



/CHECK ACS0 FOR HALT 

/GO HALT 

/-4K 

/SUBTRACT 4K 

/ALL DONE IF EOUAL 



/RESTORE LINK 
/NEXT FIELD 



/CONTAINS EPC 

/CLEAR ALL BUT BiTS 3,4,5 
/EXIT 



P4GE 2'' 



XAT -, 









J M P » 

JHH 

.tJECT 



HALT 
STOVER 



^ A (, F. 



XAi'ls 



/ 

/ERROR P (' 1 ■ 
/HALT AFTE^ 
/ 



T-OUT R 



in377 


■ 011/10 


I., 1 4 n 


'■44302 


H14I/I1 


?04275 


?ll4t1? 


S' 4 4 30 3 


m4(^? 


?04?74 


f"14k<'' 


■/ 4 'I 3 4 


P 1 4 S 


?04325 


•^ 1 4 CI ft 


544^544 


1^14^7 


741000 


K1410 


6/11414 


m 4 1 1 


?04^43 


0141? 


"44325 


1^1413 


631423 


i''| 1414 


204303 


(11415 


■^04403 


01416 


544336 


m417 


601423 


1^1420 


044336 


(^1421 


064325 


(^142? 


"44325 


5^1423 


7 6 C^ 


1^1424 


544267 


?14 25 


601443 


fil426 


750.^04 


4^1427 


742010 


f'143P' 


740100 


K1431 


601435 


P1143? 


760207 


01433 


101571 


01434 


601443 


01435 


750004 


01436 


740010 


01437 


740100 


01440 


601450 


01441 


101364 


01442 


601450 


01443 


750004 


01444 


741100 


01445 


101364 


01446 


707702 


01447 


621377 



FRROR 



/ 

SW2 



SWl 



SW0 



OAf 
LAC 
OAC 
LAC 
OAC 
LAC 
SAP 
Skp 

JMP 
LAC 
DAC 

JMP 

LAC 

ANin 

SAO 

JMP 

DAC 

OAC* 

IS? 

LAW 

SAD 

JMP 

LAS 

RTL 

SMA 

JMP 

LAW 

JMS 

JMP 

LAS 

RAL 

SMA 

JMP 

JMS 

JMP 

LAS 

SPA 

JMS 

PEM 

JMP» 

.EJECT 



OUTINE. PLACE ACSe UF 
OUT. PRESS CONTINUE 



BAOl 

MEMADR 

OCADR 

PATR 

GOODl 

FRWRO 

FNERR 

.+4 

ERTBL 

FRWRD 

SW2 

OCADR 

K70K 

LAST 

.+4 

LAST 

ERWRD 

FRWRO 



NOPRNT 
SW0 



SWl 
207 

PCHAR 
SW0 



DOERR 

HALT 

DOERR 



HALT 
ERROR 



/Save bad data 

/Save Failing address 



/error Table pointer 

/LAST ADDRESS OF TABLE 



/FIRST ADDRESS OF TABLE 

/PUT POINTER TO TOP OF TABLE 

/CHECK AC2 FOR BELL 

/FAILING ADDRESS 

/MASK 3,4 AND 5 

/NEW ERROR FIELD IF SKIP 

/SAME FIELD AS LAST ERROR 

/STORE FIELD# IN TABLE 
/INCREMENT POINTER 

/PRINT INHIBIT IF = LAW 

/NO PRINT 



/BELL IF SKIP 
/CHECK ACS 1 
/ASCII BELL 
/PRINT 



/NO SKIP = PRINT INFO 

/PRINT 

/HALT 

/PRINT INFO 

/NO SKIP = HALT 



/RETURN TO READ ROUTINE 



PAGE 2- 



X 4 m B 



/ 1 4 -^ ^ 

in 4 5 ? 

■/ 1 4 5 A 
m456 

tn -i ^ 7 

C 1 4 6 1 

J^146? 

Pi 1 4 6 ? 

01464 

0146=5 

?I1466 

?I1467 

0147? 

01471 

01472 

01473 

01474 

0147'5 

01476 

01477 

01500 

01501 

01502 

01503 

01504 

01505 

01506 

01507 

01510 

01511 

01512 

01513 

01514 

01515 

01516 

01517 

01520 

01521 

0152? 

0152? 

01524 



7 6 >' A 
■=^64^13 

f-?\-i 455 
i ''11 551 
^ .1 1 4 4 3 
1 0T737 
?03746 
741200 
13 37 4 6 
244345 
101571 
777767 
n43737 
101615 
?04303 
.M3737 
101576 
777772 
043737 
101615 
204304 
043737 
101576 
777776 
043737 
101615 
204302 
043737 
101576 
777773 
043737 
101615 
760261 
"544345 
741000 
601520 
204006 
044305 
103701 
601527 
204340 
744010 
742010 
742010 
74?010 



/SFTDP 

/ 

nOFRR 


TO PRINT 


FRPOR 


Li- 






Sah-* 


SUPTpL 




JMP 


.+3 




JMS 


CSUP 




JMP 


SW0 




JMS 


CRLF 




LAC 


PHOR 




SNA 






JMS 


phdr 




Lac 


TNUM 




JMS 


PChAR 




law 


-11 


STER 


dac 


CRLF 




JMS 


SPING 




LAC 


nCADR 




OAC 


CRLF 




JMS 


PROCTL 




LAW 


-6 




OAC 


CRLF 




JMS 


SPING 




LAC 


GOODl 




OAC 


CRLF 




JMS 


PROCTL 




LAW 


-2 




OAC 


CRLF 




JMS 


SPING 




LAC 


RADl 




DAC 


CRLF 




JMS 


PROCTL 




LAW 


-5 




DAC 


CRLF 


INDY 


JMS 


SPING 




LAW 


261 




SAn 


TNUM 




SKP 






JMP 


.♦5 




LAC 


LAL 




DAC 


PRNT 




JMS 


PNXT 




JMP 


CMAX 




LAC 


PAT8NK 




rcl; 


rtl; 



/IF 1ST LOC. OF SUPTrL = LA»^, 
/NO ADR. SUPPRESSION WANTED 

/SEE IF This error is suppressed 

/YES. 

/CR.LF 



/TEST NUMBER 

/-9 

/SPACING COUNT 

/SPACE 9 



/PRINT FAILING ADDRESS 



/SPACE 6 

/WHAT DATA SHOULD BE 

/PRINT THE GOOD 



/SPACE 2 

/DATA READ 

/PRINT THE BAD 



/SPACE 5 
/PRINT "ALL" 



RTL; 



/FIELD WITH PAT. 
RTL 



.EJECT 



XGE g-H 



X A 11 1 1 



m '^ 2 '- 

;" 1 '- ,-: ^ 

I'. 1 S 3 1 
i' 1 ? 3 ? 
? 1 "5 3 ? 
1-11534 
t^l53'> 
i^l536 
01537 
I' 1 5 4 '/■ 
Pil'541 
H154? 
!^1543 
01544 
f1154'=i 
C11S46 
K1547 
0155V'' 



:- i 4 3 6 2 
1 ''1571 
••-44324 
'■■31443 
7 7 7 7 
■M4324 
7.501000 
i''44267 
11^3737 
?'24007 
c-'44305 
103701 
15!3737 
777766 
C'43737 
76(^212 
1511571 
443737 
601 544 
601443 



CMAX 



J A' 
J^S. 
IS/ 
JMP 
LAv. 
DAC 
LAW 
DAC 
J^^S 
LAC 
OAC 
JMS 
JMS 
LAW 
DAC 
LAW 
JMS 
IS? 
JMP 
JMP 



''260 


PCMAR 


■^AXERR 


Sw0 


-1P0 


MAXERR 


MOPRNT 


CRLF 


PTO 


PRNT 


PNXT 


CRLF 


-12 


CRLF 


212 


PCHAR 


CRLF 


.-3 


SW0 



/PRINT-OUTS INHIBITED 



/10 LINE FEEDS 



/CHECK FOR 
/ 



SUPPRESSED ADDRESS 



01551 


;'00vl00 


01552 


224013 


01553 


-44303 


01554 


6?il564 


1^.1555 


■^44337 


1^1556 


1^31567 


01557 


204013 


01560 


544014 


^1561 


^31567 


01562 


<544013 


P'1563 


601552 


01564 


204012 


01565 


044013 


01566 


621551 


01567 


441551 


01570 


601564 


01571 


000300 


PI1572 


700406 


01573 


700401 


01574 


601573 


01575 


*21571 



CSUP 



TOP 



SPEXT 

/ 

PCHAR 





LAC» 

SAD 

JMP 

SAn 

JMP 

LAC 

SAD 

JMP 

IS? 

JMP 

LAC 

DAC 

JMP» 

IS? 

JMP 



TLS 
TSF 
JMP , 
JMP» 



SUPT8L 

nCAOR 

TOP 

LSTSUP 

SPEXT 

SUPTBL 

ESTBL 

SPEXT 

SUPTBL 

CSUP+l 

STBL 

SUPTBL 

CSUP 

CSUP. 

TOP 



/COMPARE WITH CURRENT ADDRESS 

/SUPPRESSED 

/SEE IF DONE WITH LIST 

/YES 

/SEE IF DONE WITH TABLE 

/YES 

/POINTER +1 



/RESTORE POINTER 

/EXIT 

/EXIT ADDRESS +1 



-1 



PCHAR 



.EJECT 



PAGE '^^ 



XAfil^ 







/PRINT 


6 DIGIT C 


iCTAL NUMBfRS 


■\^1 f- 


'?. 9- V) i^ 


/ 
PROCTL 


i 




i)\^n 


777772 




LAi^ 


-6 


« 16!^ C'"' 


■ 4 4 3 4 2 




OAC 


RPFTE 


7i 1 !S i^ 1 


^«3737 




LAC 


CRLF 


1^16a2 


744010 


POSN 


RCL; 


RTL 


5^1603 


742m0 








0160'5 


i'43737 




OAT 


CRLF 


0160"; 


7 4 010 




RAL 




ViXb'dh 


^'/)4350 




AMP 


K7 


'^1607 


P44362 




XOS 


K260 


0161C 


1 !?)j57l 




JMS 


PCHAR 


01611 


444342 




IS2 


RPETE 


H161? 


741000 




SKP 




0161? 


^^21576 




JMPo 


PROCTL 


01614 


601601 


/ 

/SPACE 

/ 

SPING 


JMP 


POSN-i 






ROUTINE 




0l6l'5 


000000 







01616 


760240 




LAW 


240 


01617 


101571 




JMS 


PCHAR 


01620 


443737 




IS? 


CRLF 


01621 


601 617 




JMP 


,-2 


0162? 


621615 




JMP« 


SPING 



/MASK AC I'^-l? 
/MAKE ASCI I 
/PRIMT 1 
/6 DIGITS WHEN SKIP 



/EXIT 
/POSITION 



NEXT NUMBER 



/PRINT A SPACE 
/DONE WHEN SKIP 

/EXIT 



.EJECT 



wGE n 



XAl)1i3-T4pr < 



01 ^?,^ 



M7762 
4 4 34 4 



1 >. -. 


■^ :i 4 kll 5 


n\h■^^•■ 


■ 44305 


^11627 


•> 03737 


in63i^ 


^ 03701 


-■163] 


- :V272 


"1632 


1 44344 


"1633 


•-44374 


^ 1634 


^■'01623 


H163'5 


■=^4 4 360 


1-11636 


601. 660 


01637 


777517 


01640 


344344 


1^1641 


740100 


1^1642 


^ 1 6 4 5 


H164? 


\ 03547 


01644 


'■01 623 


H1645 


9 (PI 4 3 4 4 


'/!1646 


740301 


fn647 


344346 


i^l65P 


344366 


01651 


740100 


0165? 


601655 


01653 


103547 


01654 


601623 


01655 


? ''l 4 3 4 4 


01656 


044345 


01657 


601 660 



/ A n D 1^ E S S S u P ■■ 
/BEFORE hf-!'. 
/ 

k V ,■; R n r p .1 

r~; ^ tv 
/ 

/TYPr "TEST»" 
/ 

TSTMO LAC 

OAC 
JMS 
JMS 
JMS 
OAC 
SAO 
JMP 

S A '-' 
J*iP 
LAW 

ta: 

SMA 
JMP 
JMS 
JHP 
LAC 
CMA 
TAP 
TAO 
SMA 
JMP 
JMS 
JMP 
TSTN LAC 
OAC 
JMP 



41,1.1- PT KEYBOARD INPUT 
f^ES'^ir-ixj AND BLOCK TES 
ITEMING MAIN PROGRAM 



RITN 



ANO WAIT FOR INPUT 



FOR TFSi selection; 
T LIMITS. PLACE ACS 13 DOWN 



/TEMP. STORAGE FOR INPUT CHARS. 



TSNX 

PRNT 

CRLF 

PNXT 

KEYIN 

RITN 

K377 

KYRRO 

K215 

SUPIN 

-261 

BITN 

.+3 

WQTIS 
KYBRO 
BITN 

Kl 
K264 

.+3 

WQTIS 

KYBRD 

RITN 

TNUM 

SUPiN 



/CR-LF 

/PRINT "TEST#" 

/GO WAIT FOR INPUT 

/SAVE TTY CHAR. 

/IS INPUT A RUBOUT 

/YES. START OVER 

/NO TEST WANTED IF A C.R. 

/LAST TEST PATTERN WILL BE USED 



/IF AC IS NEC TEST # IS <1 
/IT IS >1 

/PRINT QUESTION MARK 
/START OVER 



/2'S COMPLEMENT TEST # 

/IF AC IS NEG., TEST t IS >4 

/THERE ARN'T MORE THAN 4 TESTS 
/START OVER 



/WAjT FOR C.R, 



.EJECT 
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XAfil'^ 



■? 1 6 6 _^ 
7.166? 
/' 16 6 3 
f. 1 6 6 4 
7.16 65 
01666 
f"1667 

?il67? 
216 7 3 
01674 



(^1675 
01676 
01677 
0170P 
01701 
P!17l?2 
P.1703 
•71704 
511705 
H1706 
01707 
HITIP 
01711 



01712 
01713 
01714 
01715 
01716 
01717 
01720 
01721 
0172? 
01723 
01724 

01725 
01726 
01727 



-■'iVl4./,]2 
4 4 /n 3 

r' 4 4 iM 
? ? 4 vU 
!M4311 
7 6 .'5 

K64013 

3 44306 
10 3 7 3 7 
2 ? 4 ^ 1 6 
k'44305 
1 03701 



204017 
4 4 310 
204020 
1^44307 
15(2272 
102301 
224010 
r44311 
204344 
504350 
f 44344 
103043 
601675 



204306 

064013 

444013 

144306 
102272 
544374 
601623 
544360 
602027 
544361 
601761 
544370 

74i>a00 

602312 



/ 

SUPP" 



TH TrST». NOW DO ADR. SUPPRFSSlON 



SUPTpL 



/IST LOCATION 
/POINTFK 



[N suPRESS Table 





LAr 


ROTB 




PAl.' 


RqTA 




LACe 


rOTA 




OAC 


NROTA 




LA^ 






DAC» 


SUPTBL 




n?'-' 


aqrcw 




J^^? 


CRLF 




lac 


SUPSX 




OAC 


PRNT 




JMS 


PNXT 


/ 






/ACCEPT 


1ST ADDi^ESS 


AND THI 


/OR A COI^MA 




/ 

NXSUP 


LAC 


INSUP 




OAC 


OVER 




LAC 


SUPON 




DAC 


EXIT 




JMS 


KEYIN 




JMS 


LEGAL 




LAC* 


ROTA 




OAC 


NROTA 




LAC 


PITN 




AND 


K7 




OAC 


BITN 




JMS 


GENADR 




JMP 


NXSUP 



/SHIFT COUMTER 

/A LAW IN 1ST LOC. SaYS NO 
/ADDRESS TO BE SUPPRESSED 
/USED TO STORE l5 BIT aC-^RESS 



/PRINT "SUPPRESS" 



THEN WAIT FOR A COLON 



/C(INSUP) 
/C(SUPDN) 



= SUPIN 
= DNSUP 



/RETURN HERE FROM GENADR AFTER 5 CHARS. 
/ 



/WAIT FOR INPUT 
/CHECK VALIDITY 

/C(NROTa) = COUNT FOR LEFT SHIFTS 

/MASK 15-17 

/SAVE 

/START ASSEMBLING 1ST ADDRESS 

/GET NEXT INPUT 

REC'D. 



CKCLN 



LAC 


AORCW 


DAC* 


SUPTbL 


IS2 


SUPTBL 


D2M 


ADRCW 


JMS 


KEYiN 


SAD 


K377 


JMP 


KYBRD 


SAP 


K215 


JMP . 


ONSUP 


SAO 


K254 


JMP 


SUPBLK 


SAH 


K272 


SKP 




JMP 


QUERY 



/FIRST ADDRESS 
/STORE IN 1ST LOC. 



OF Table 



/CLEAR 

/WAIT FOR a: , OR C.R, 
/CHECK FOR RUBOUT 
/START OVER WITH TEST 
/CHECK FOR C.R. 



/CHECK FOR COMMA 
/A COMMA = SUPPRESS 
/CHECK FOR COLON 

/NONE OF THE ABOVE. 



A BLOCK 



,E JECT 



"a r, £ ^ c 



XA1I15 



^173i 


■■ /?272 


i'173] 


I ^?3?il 


'^X7S? 


'/ ? 4 ,) 1 


01733 


•/ 4 4 3 1 1 


i/1173'! 


?i!'4344 


511735 


'^04350 


6173^^ 


/ 4 4 3 4 4 


til737 


103043 


t^l740 


^01 730 


!'1741 


?04306 


''174? 


I'i640l3 


?1743 


?44337 


?1744 


' 4 J4 1 3 


fil745 


h 4 4 1 4 


w 1 7 4 6 


^0?027 


01747 


'- 4 4 1 3 


0175f> 


,144306 


01751 


10?272 


5^175? 


544360 


?I1753 


^02:^27 


01754 


6P11 725 


0175=^ 


102272 


P117S6 


^^44360 


t^l757 


'^02027 


t^l760 


^02312 



/ A C C F P T 
/ 

SU-1 



NO I ■' inUAL ADDRESSFS 


j«,. 


•^EYIN 


j.^t 


LEGAL 


L 4 f" » 


ROTA 


■ ar 


NROTA 


LAT 


RITN 


4 Ni n 


K7 


OAC 


RITN 


JMS 


CENADR 


JMP 


SUPl 


LAC 


AORCW 


DAC* 


SUPTBL 


DAT 


LSTSUP 


LAC 


SUPTBL 


SAO 


FSTBL 


JMP 


HNSUP 


IS? 


SUPTBL 


PrfM 


ADRCW 


JMS 


KEYIN 


SAH 


K215 


JMP 


DNSUP 


JMP 


CKCLN 


JM? 


KEYIN 


SAT. 


K215 


JMP 


DNSUP 


JMP 


QUERY 


.EJECT 





/WAIT FOR INPUT 
/CHFTK VALIDITY 

/CnUMTS LEFT SHIFTS MADE 

/MASK ACS 15-17 

/ASSEMBLE ADDRESS 

/WAIT FOR NEXT CHAR, 

/COMPLETE ADDRESS 

/STORE IN SUPPRESSION TABLE 

/LSTSUP = LAST TO SUPPRESS 

/CHECK FOR 257 ADDRESSES 
/WAIT FOR C.R. 
/INCREMENT POINTER 

/WAIT FOR COLON INPUT 
/DONE IF C.R, 

/IS IT REALLY A COLON 

/WAIT FOR C.R, 

/NOT A C,R. 



PAGE 



XAI 1- 



/ACCEPT Twn INPUTS FOR A SUPPRFSSEn PLOCK 



■/' 17 6' 


- /?272 


v„176? 


^^2^01 


fil763 


?24010 


P176^ 


V44311 


1^176'^ 


5C14344 


P 1 7 6 '1 


504350 


.^1767 


i"44344 


?!177(;. 


1 I'T 3 a 4 3 


^^1771 


^ ii 1 7 6 1 


t,l77? 


^^4306 


IH77?, 


; 44337 


?'177'i 


P ;^ 4 1 2 


lr:i77^ 


M 4 '^ 1 3 


t^l776 


'' 2 4 M 1 3 


01777 


740001 


</'■ 2 PI iH* 


3 4 4 34 6 


1^2001 


344337 


02(^0? 


740100 


C^2?|03 


602^12 


02^04 


224013 


f2?05 


?43737 


(^2006 


?04337 


ti2007 


r->64013 


H2t^lt" 


203737 


02(»11 


'M4337 


?^2012 


224013 


«2PI13 


544337 


02014 


602027 


(71201? 


204013 


02016 


544014 


02017 


602027 


02020 


224013 


02021 


344346 


02022 


444013 


02023 


1-64013 


02024 


^44337 


02025 


602027 


02026 


602015 



SUPBLK 


J f-' - 


KEY IN 




j-s 


LEGAL 




LAC» 


ROTA 




nac 


NrOtA 




LAC 


PITN 




A ■■ J n 


K7 




DAC 


RITN 




JMS 


GENAOR 




JMP 


SUPBLK 


/ 


Lac 


ADRCW 




nAc 


LSTSUP 




LAC 


STBL 




DAT 


SUPTBL 




LAC« 


SUPTBL 




CMA 






TAH 


Kl 




TAIi 


LSTSUP 




SMA 






JMP 


SETSUP-3 




LAC» 


SUPTBL 




OAC 


CRLF 




LAC 


LSTSUP 




DACe 


SUPTBL 




LAC 


CRLF 




OAC 


LSTSUP 




LAC» 


SUPTBL 




SAn 


LSTSUP 




JMP 


ONSUP 


SETSUP 


LAC 


SUPTBL 




SAO 


ESTBL 




JMP 


DNSUP 




LAC» 


SUPTBL 




TAH 


Kl 




IS? 


SUPTBL 




HAG* 


SUPTBL 




SAD 


LSTSUP 




JMP 


ONSUP 




JMP 


SETSUP 




.EJECT 





/WAIT FOR INPUT 

/CHECK Validity 

/COUNT LEFT SHIFTS 

/MASK ACS 15-17 

/ASSEMBLE ADDRESS 
/WAIT FOR NEXT 

/COMPLFTE ADDRrSS 
/SAVE 

/SETUP Table pointer 

/2'S COMP, 1ST AODRESS 
/SUBTRACT 2ND ADDRESS 
/IST IS > LAST IF SKIP 

/REVERSE THE TWO ADDRESSES 
/SAVE FIRST 

/LAST IS NOW FIRST 

/FIRST IS NOW LAST 

/ARE THEY EQUAL 
/YES 

/256 ChARS STORED. IGNORE ANY MORE 



/INCREMENT POINTER 

/WAS LAST THE LAST TO SUPPRESS 
/YES 



"7* (- F ^■ 



■^ A I ^ 1 = 







/ 9 e s ' 
/ 

ONSUP 


Oftt" HPi 


i ■ r F R S B t f 


/■ 2 ii ? 7 


"./. 12 


LAC 




STRL 


^^t'JS.- 


■■•4 4 '13 




OAC 




=.UPTOL 


''?pi:si 


2 H 4 ,', 1 1 




LAC 




»OTB 


'/2?I32 


S 4 4 i1 1 fei 




SAO 




h'OTA 


^i2fi3:$ 


/S ', 2.144 




JMP 




HLKl 


021434 


i* 4 4 ,1 1 




OAC 




ROTA 


?'20;5'5 


^ '^13547 




JMS 




WOT IS 


i^ 2 (^ 3 6 


f. -71 1^60 


/ 
POTC 


JMP 




SUPIN 


H27t37 


777763 


LAW 


-15 




C-i 2 f 4 C' 


777766 




LAW 


-12 




'A2?)A1 


777771 




LAW 


-7 




M 2 PI 4 2 


777774 




LAW 


-4 




.12PI43 


777777 




LAW 


-1 





'N€ 



/PQTP AND ROTA MUST BE EQUAL 



/RESTORE SHIFT COUNT POINTER 
/LAST ADDRESS WAS <5 CHARS 
/START OVER WITH SUPPRESS 



/ROTATE 12 LEFT 
/9 LEFT FOR 2ND 
/6 LEFT FOR 3RD 
/3 LEFT FOR 4TH 
/NONE FOR 5TH 



FOR 1ST DIGIT 



.EJECT 



PAGE 3y 



VAM' 







/INiPUT 


^^OUTI^lE 


FOR 


ADDRESS LIMITS OF 






/ORf SS 


Cft IF NO 


i^LOCKS WANTED. 


/! 2 tM 'J 


- 443!7.6 


/ 


n^fM 




ADRCW 


•/1 2 Pi 4 1^ 


7^'»^00 




LAW 






•1 2 1^ 4 6 


-44520 




A C 




PLOCl 


i^?(^47 


-44321 




DAT 




RL0C2 


tl y P 5 1-^ 


:'''>?i35 




LAC 




STLOOP-1 


;i 2 1^ 5 1 


'■4?320 




DAC 




LOCAT+4 


^1 2 fi 5 ? 


2 2 4 .') 1 ei 




LACe 




ROTA 


P! 2 5 ? 


•4 4 311 




OAC 




nROTA 


t^2f^54 


•.:'-^737 




JMS 




CRLF 






/TYPE ' 


"BLOCK"!" 


AND 


Wait for input 


M 2 R 5 s 


^:Ma?5 


/ 

RLKNl 


LAC 




BLKSX 


02M56 


■/4 4 305 




DAC 




prnt 


512?'57 


1 ^3701 




JMS 




PNXT 


[-^206'' 


0(?|4a23 




LAC 




00NE2 


02^61 


'M4 307 




DAC 




EXIT 


H2H62 


204021 




LAC 




NBLK 


(^2l?i63 


^44310 




DAC 




OVER 


H2064 


102272 


BLKIA 


JMS 




KEYIN 


0206S 


11^2301 




JMS 




LEGAL 


1^25^66 


PJi4344 




LAC 




BITN 


012C67 


504350 




ANP 




K7 


CI 2 P! 7 1' 


4 4 34 4 




DAC 




BITN 


02071 


103043 




JMS 




genadr 


02072 


^02064 




JMP 




BLKIA 



BLOCK #1. 



(^2073 
02074 
02075 
02076 
02077 
02100 
02101 
02102 
02103 
02104 
02105 
02106 
02107 
02110 



/SHIFT COUNTER 



/PRINT BLOCK #1 
/C(D0NE2) = OBLKi 

/C(NRLK) = BLKl 

/WAIT FOR INPUT 
/CHECK FOR LEGAL CHAR. 
/INPUT CHAR. 
/MASK AC 15-17 

/ASSEMBLE ADDRESS 



/ENTER HERE AFTER 

/ 

?043PI6 LAC 

CM4320 OAC 

144306 02m 

102272 Jf^S 

544361 SAD 

741000 SKP 

602312 JMP 

102272 BLKiB JMS 

102301 JMS 

204344 LAC 

504350 AND 

(,-,44344 DAC 

103043 JMS 

602102 JMP 

.EJECT 



FIRST ADDRESS RECEIVED 

ADRCW 
BLOcl 
ADRCW 
KEYIN 

K254 

QUERY 

KEYIN 

LEGAL 

BITN 

K7 

BITN 

GENADR 

PLKIB 



/ASSEMBLED ADDRESS 

/FIRST ADR. OF FIRST BLOCK 

/CLEAR 

/WAIT FOR COMMA 

/CHECK FOR COMMA 

/O.K. 

/PRINT QUERY MARK 

/WAIT FOR INPUT 

/SEE IF IT'S LEGAL 

/INPUT CHAR. 

/MASK AC 15-17 

/ASSEMBLE SECOND ADR. 



PAGf 



X A (") 1 S 



ENTER nFKF .TTt-: StrOND ADDRESS 



.'2111 


;\^4 306 


^'2112 


■•'44321 


i'2ii:^ 


1 44306 


2114 


?!^401l 


f^21 l-^ 


^44010 


72\\h 


602121 


^12117 


'/I44010 


:^212H 


6'/!23l2 


;'2121 


76'//100 


."2122 


'>44320 


6^2123 


602163 


"2124 


544321 


C12125 


'102312 


("2126 


2714320 


02127 


■^04403 


^^213? 


^44344 


(^2131 


704321 


f2132 


504403 


vi2133 


ii43737 


'/'2134 


-1 02151 


ii2l3S 


602163 


^2136 


1 ■^3737 


1^)2137 


704025 


t"214;i 


;'44305 


^"2141 


103701 


i^2142 


704026 


(^2143 


;M4305 


02144 


103701 


P214S 


204407 


6^2146 


i>'4?320 


fl2147 


102314 


?215P 


602044 


,^2151 


^100000 


^2152 


101360 


f»2153 


544344 


021'54 


741000 


5^215^ 


602160 


(12156 


442151 


02157 


622151 


(12160 


543737 


(12161 


442151 


.12162 


622151 



/ 

DBLKl 



PR 



OG 



r-AT 
LAC 

JMD 

DSC 

JMP 

I A- 

SAH 

JMP 

SAO 

JMP 

LAC 

AN-' 

PAC 

LAC 

AND 

PAC 

JMS 

JMP 

JM? 

LAC 

OAC 

JMS 

LAC 

OAC 

JHS 

LAC 

DAC 

JMS 

JMP 



JMS 

SAO 

SKP 

JMP 

IS? 

JMP» 

SAD 

ISH 

JHP» 



AQRCH 
HLnC2 

ADRCW 

i^OTB 
ROTa 
. +3 
ROTA 
QUERY 

9L0C1 

RLK2 

BL0C2 

QUERY 

RLOCl 

K70K 

OITN 

BLnC2 

K70K 

CRLF 

PROG 

PLK2 

CRLF 

RLKSX 

PRNT 

PNXT 

OVRLP 

PRNT 

PNxT 

K700K 

LOCAT+4 

LOCAT 

RLKl 



WHERE 
BiTN 

.+3 

PROG 

PROG 

CRLF 

PROG 

PROG 



/ASSFMPLED AHDRESS 
/LAST ADR. OF 1ST BLOCK 



/MUST BE EQUAL 
/O.K . 

/ADDRESS IS NOT 5 CHARS, 
/LAW r NO INPUT 



/CHECK FOR 2 INPUTS 

/PRINT QUERY AND START OVER 



/TEMP. SAVE ADR. BITS 3,4 AND 5 



/DO Same with upper limit 

/SEE if limits OVERLAP PROGRAM 

/O.K. 

/LIMITS IN Same 4K AS PROGRAM 



/PRINT BLOCK #1 



/PRINT BLOCK #1 

/CHANGE JMP» TO NOP 
/PRINT AREA OF PROGRAM 
/START OVER 



/ChECk IF SAME AS LOW LIMjT 

/YES. ERROR 

/NO 



/SEE IF Same as high limit 

/YES 
/EXIT 



.EJECT 



PAGE" .^'t 



XAJil'- 







/ I MPUT 


ROUTINE FOR 


BLOCK #2 


,-V 1 f> -■^ 


1443^6 


/ 
PLK2 


Ps'-- 


ADRCW 


i'21^■^ 


7601^00 




Lai- 




HJlh"- 


.■44322 




n4C 


BL0C3 


1-1 ? 1 6 6 


^'44323 




OAC - 


RL0C4 


^21 67 


l;i13737 




J'^'S 


CRLF 






/TYPE 1 
/ 

RLKNp 


3 L C K « 2 A "J D 


WAIT FOR INPI 


021-7?' 


;j.;i4/)27 


LAP 


RLKTX 


f^2171 


r 44 305 




nAC 


PRNT 


1^217? 


1 03701 




JmS 


pnxt 


1^2173 


P04J24 




LAC 


00NE3 


02174 


C144307 




DAC 


EXIT 


02175 


22)4022 




LAC 


TBLK 


02176 


'. ! 4 4 3 1 




HAG 


OVER 


02177 


102272 


BLK2A 


JMS 


keyin 


0220(^ 


102301 




J'^S 


LEgAL 


0220] 


204344 




LAP 


BITN 


PI220? 


504350 




ANO 


K7 


02203 


044344 




DAC 


BITN 


02204 


103043 




J^^S 


GENAOR 


0220^5 


602177 




JHP 


BLK2A 






/ 

/ENTER 


HERE AFTER 1 


FIRST ADDRESS 


02206 


204306 


/ 


LaC 


adrcw 


02207 


044322 




DAC 


BL0C3 


02210 


144306 




DZM 


ADRCW 


02211 


102272 




JMS 


KEYIN 


02212 


544361 




SAD 


K254 


02213 


741000 




SKP 




02214 


602312 




JMP 


QUERY 


(^2215 


102272 


BLK2B 


JMS 


KEYIN 


02216 


102301 




JMS 


LEGAL 


02217 


204344 




LAC 


BITN 


02220 


504350 




AND 


K7 


02221 


044344 




OAC 


BITN 


02222 


103043 




JMS 


GENADR 


02223 


602215 


/ 


JMP 


BLK2B 






/RETURN HERE AFTER 


2ND ADDRESS 


02224 


204306 


/ 


LAC 


ADRC'I 


02225 


044323 




HAC 


BL0C4 


02226 


144306 




D2M 


ADRCW 


02227 


102272 




JM? 


KEYIN 


02230 


544360 




SAD 


K215 


02231 


741^500 




SKP 




0223? 


602312 




JMP 


QUERY 



/print block #? 
/c{d0ne3)=dblk2 

/c(tblk) = blk2 

/Wait for input 
/Check for l^gal Char. 

/MASK AC 15-17 
/ASSEMBLE ADDRESS 



/ASSEMBLED ADDRESS 
/IST ADR. OF 2ND BLOCK 

/WAIT FOR COMMA 



/PRINT QUERY 
/WAIT FOR INPUT 
/SEE IF IT'S LEGAL 



/ASSEMBLED ADDRESS 
/LAST ADR. OF 2ND BLOCK 

/WAIT FOR C.R. 

/DONE 

/PRINT QUERY 



.EJECT 



FACE 



V .\ n 1 - 



■ 2 ^ 1^ ,^ 


.'■^/ll DBLK? LAr- 


ROTB 


•7 9,^4 


- 4 4 ,1 1 


SAO 


ROTA 


r>2?3'~ 


' 74 


JMP 


.+3 


12?,"^^ 


44. '10 


DAC 


ROTA 


('2?37 


'■ •! 7-512 


JMP 


QUERY 


^12?4t' 


^fip.^f^e 


LAW 




■^22 41 


'^ 4 4 3 2 2 


SAO 


BL0C3 


«22t? 


6 --12336 


JMP 


STLOOP 


f224? 


^44323 


SAn 


RL0C4 


02244 


6?)2232 


jrtP 


D8LK2-1 


1^224^ 


?'^4322 


LAC 


RL0C3 


1-12246 


534403 


AND 


K70K 


^2247 


^^■44344 


DAC 


RITN 


?2250 


?'^4323 


LAC 


BLnC4 


?i2251 


^^04403 


ANn 


K70K 


f'.2252 


•43737 


DAC 


CRLF 


«2253 


1 ^2151 


JMS 


PROG 


PI2254 


^07336 


JMP 


STLOOP 


P1225S 


lc^3 737 


JMS 


CRLF 


PI2256 


204,:)27 


LAC 


BLKTX 


^2257 


'M4305 


DAC 


PRNT 


02260 


1 ?I3701 


JMS 


PNXT 


ii226l 


? ?i 4 1? 2 6 


LAC 


OVRLP 


i'5226? 


i M 4 3 P! 5 


DAC 


PRNT 


v'2263 


1 ;^370l 


JMS 


PNXT 


P2264 


204407 


LAC 


K700K 


0226? 


;M2320 


OAC 


LOCAT+4 


{52266 


11^2314 


JMS 


LOCAT 


H2267 


202335 


LAC 


STLOOP-i 


f?2270 


042320 


DAC 


LOCAT+4 


«2273 


'^02163 


JMP 
.EJECT 


BLK2 



/MUST Bf EQUAL 
/O.K , 

/ADR. IS NOT 5 CHARS. 

/LAW = NO INPUT 

/CHECK FOR 2 INPUTS 
/START OVER 

/TEMP. SAVE MA 3, 4 AND 5 



/TEMP. SAVE HIGH LIMIT 
/SEE IF LIMITS OVERLAP PROGRAM 
/SETUP TO START LOOPS 
/LIMITS IN SAME 4K AS PROGRAM 



/PRINT BLOCK #2 



/PRINT LIMITS OVERLAP PROGRAM 

/CHANGE JMPtt TO NOP 
/PRINT AREA OF PROGRAM 

/RESTORE THE JMP, 
/START OVER 



PAGE :■> o 



y A f 1 1 "^ 



.'2?7'- 


"Ji [<. ri jTI 


'? 2 ? 7 3 


771(^312 


i^2?74 


70t»:501 


???7^ 


^'5)2274 


^2276. 


700312 


^2277 


(■144344 


0230C'' 


A22272 



0230? 
i^23t'3 
v"? 2 3 H 4 
(^230^ 
PI 2 3 6 
?'2307 
.5231 i^' 
fi2311 
02312 
02313 



:1 010 00 
?'^4344 
^44374 
6016^3 
S44360 
624307 
S04373 
544362 
622301 
] 03547 
624310 



/ 

/CHA'7ArTFr( rPUT ROUTINE 

/ 

K E Y I M V 



KSF 
JMP 

OAC 
J 1-1 P 9 



.-1 

PITN 
KEYIN 



/ 

/SEE IF rHA-<ACTE^ IS LEGAL 

/ 

LEGAL 



QUE 
/ 



RY 



<?. 
LAC 
SAH 
JMP 

Sad 

A NO 

SAP 

JMP« 

JMS 

JMP» 



eiTN 

K377 

KY8RD 

K215 

EXIT 

K370 

K260 

LEGAL 

WOTIS 

OVER 



/INITIALIZE 
/WAIT 



/TEMp. 
/EXIT 



SAVE 



/TTY CHAR. 

/CHECK FOR RUBOUT 

/START OVER WITH TEST # 

/CHECK FOR C.R. 

/TERMINATE 



/EXIT 

/PRINT QUESTION HARK 

/START PRESENT LINE OVER 



JECT 



^(; F 5 / 



/ ^ ', 1 - 

•^ 2 ? U' 

??:^ ?' 
;i 2 :? 2 1 

'/2322 
? 2 3 2 :' 
-■^'3 2'! 

;'?32^ 

■•'2 3 2^ 
i''2327 
;'233i- 
■■■2331 
-^2332 
1:12333 
^2334 
:'!233? 



■ 1 ■ ni0 
-V- •,;;i4 

- '4355 
'4 -.'2 00 

'25314 
•■ '13737 

- A'ii)bl 
.'44 3(^5 
1^13701 
1 '-A 13 6 
7 4 4 il ] 
^42310 
742^10 
7 4 2 010 
344362 
101571 
1?I3 7 37 
622314 



/PRINT AREA ^O^TAl^:l^!G PROGRAM 
/ 

Lot: AT 



^2336 


103737 


S'2337 


760000 


P234C1 


^44320 


?I2341 


741000 


;^234? 


6 3 ? 3 4 6 


PI2343 


544322 


fi2344 


600251 


fi2345 


6(^2377 


7i234ft 


204345 


02347 


741200 


1^23511 


760261 


P2351 


.144345 


^12352 


204320 


612353 


740001 


02354 


344346 


?i2355 


344321 


H2356 


741100 


02357 


'^02426 


02360 


204320 


(•'2361 


534403 


02362 


r/. 4 4 3 4 


02363 


204345 


236 4 


504374 


■'2365 


•=^44363 


02366 


6''12435 


02367 


'-44364 


i' 2 3 7 '•' 


^02506 


23 71 


=^44365 


'■2372 


'^?!2544 


''23 7,-; 


=^44366 



J -•! P « 

Ji? 
L AC 
DAC 
JMS 
JMS 

rcl; 



TAD 

JMS 

J^Ro 



K100 

LOCAT 

CRLF 

PISIN 

PRNT 

PNXT 

kJHERE 

rtl; 



K260 
PCHAR 
CRLF 
LOCAT 



rtl; 



/ 

/SETUP 
/ 

STLOOP 



/ 

SETUl 



SINGL 



JMS 
LA" 
SAii 
SKP 
JMP 
SAO 
JMP 
JMP 

LAC 
SMA 
LAW 
DAC 

LAC 
CMA 
TAD 

TAD 
SPA 
JMP 
LAC 

AMD 
OAC 
LAC 
A\in 

SAf^ 
jvp 

SA^: 
JMC 

';i7 
J ^ - 

SA'- 



SETUl 
BL0C3 
STOVER 
SETU2 

TNUM 

261 
TNUM 

BLOCl 

Kl 
RL0C2 

REVRl 

BLOCl 

K70K 

PATBNK 

TNUM 

K377 

K261 

SIMUl 

K262 
SIMU? 
'<263 
5IMU3 
K26 4 



/CR, LP 



/PRINT "PROGRAM IS NI FIELD" 

/WHERE IS IT 

RTL 



/ASCII FIELD NUMBER 

/CR, LF 
/EXIT 



ROUTINES FOR TESTING BLOCKS OF CORE 
CRLF 
BLOCl 



/SEE IF ANY BLOCKS SELECTED 
/LAWrNONE SELECTED 



/NO BLOCKS SELECTED 

/SEE IF A TEST WANTED 
/NO, USE TEST 1 

/2'S COMPLEMENT UPPER LIMIT 
/REVERSE IF NEG. 

/DETERMINE PATTERN 

/TEST 1 PATTERN 
/TEST 2 PATTERN 
/TEST 3 PaTTFRN 



PAGE 


i-^ 


xMn'^ 








.•?374 


h A ? 6 f1 4 






■1937s 


? ,A il 3 4 S 






■'.'37 r 


7 4 ■! .1 4 ^ 



LAC 
.EJECT 



NIMU4 
TNUM 



/TFST 4 PATTFRN 
/SHOULD NEVER GET HERE 



"5S G E ;5 o 



y^\: 



^■•^M1 


?}\& 545 


^'ETU2 


LAC 


Tl^liM 


(1 ;? 4 M n 


7 412 




SNA 




i-l 2 4 1 


76-261 




LAW 


261 


^ 2 1 ^1 ;^ 


:m 4 ,5 4 5 




DAC 


tnum 


v^ 2 4 H 3 


P04322 




LAC 


BL0C3 


i^24i/li 


7 4 f /1 1 




CMA 




:"- 2 4 s 


"^44346 




TAf) 


Kl 


'.'124 06 


344323 




TAP 


3L0C4 


02407 


741100 




SPA 




5i241(? 


602421 




JMP 


REVR2 


t12411 


??S4322 




LAC 


PL0C3 


/.24 1? 


r'44320 




OAC 


PLOCl 


1^241? 


?04323 




LAC 


RL0C4 


02414 


>i44321 




DAC 


PL0C2 


«2415 


76v''5)00 




LAW 




02416 


rM4322 




OAC 


RL0C3 


02417 


,'44323 




DAC 


RL0C4 


1^1242? 


-^ 5)2360 


/ 
REVR2 


JMP 


SINGL 


02421 


?04323 


LAC 


RL0C4 


02422 


:144320 




nAC 


9L0C1 


02423 


704322 




LAC 


8L0C3 


02424 


C44321 




DAC 


PL0C2 


02425 


602415 


/ 
REVRl 


JMP 


REVR2-4 


02426 


204321 


LAC 


BL0C2 


02427 


C144344 




DAC 


RITN 


02430 


204320 




LAC 


RLOCl 


02431 


P!44320 




DAC 


BLOCl 


02432 


204344 




LAC 


RITN 


02433 


;M4320 




DAC 


BLOCl 


02434 


602360 




JMP 


SINGL 



/LAST ADR. IS >FIRST IF 
/REVERSE CONTENTS 

/IST TO TEST 

/LAST TO TEST 

/A LAW = NO BLOCK SELECTED 



,EJECT 



PAGE 'i' 



XAIM' 



i^ ? 4 ^ 7 



24 41' 
PI2441 
(/1?44? 
i^ 2 4 4 3 
W2444 
!^ 2 4 4 'S 
24 4 6 
tl2447 
H 2 4 '5 ti 
fi 2 4 5 1 



H245? 
(^2453 



1 ,^ ^ 1 7 
1 .15775 

'-H(^333 



777777 
344275 
544323 

6 :;i P 4 5 2 

7 6 M ..) 

■744322 
6i^?452 
H^'7704 
lPi3006 
600333 



1^2775 
60C367 



02454 


777777 


02455 


344275 


02456 


S44323 


02457 


60?465 


02460 


760000 


02461 


544322 


0246? 


602467 


02463 


103006 


02464 


600367 


'/12465 


l0303i 


02466 


600424 


02467 


103017 


02470 


600424 



02471 


444275 


02472 


740000 


02473 


204275 


02474 


544320 


02475 


741000 


02476 


602467 


02477 


750004 


02500 


741100 


02501 


101364 


0250? 


S04352 



/ 

/SETUP FOR TtST 1 

/ 

SjMUl J'lS WRTIS 

JMS SETBl 
JMP WRLKl 



/ 

/RETURN 

/ 

BLKAl 



HERE AETER WRITING BLOCK 1 



LAW 

tah 

SA" 
JMP 

LAW 
SAO 
JMP 
JMS 
JMS 
JMP 



-1 

MEMADR 
BL0C4 
TlRDF 

BL0C3 
TlRDF 
CKADR 
SETB2 
WBLKl 



/SETUP TO READ FORWARD 
/ 

TlRDF 



JMS 
JMP 



SETBl 
RLOPl 



/PUT I'S INTO ALL OF CORE 

/SETUP 1ST BLOCK 

/WRITE PATTERN IN BLOCKl 



/LAST ADDRESS 

/SEE IF 2 BLOCKS WRlTTEl 

/SETUP TO READ FORWARD 



/SETUP 2ND BLOCK 

/WRITE PATTERN IN BLOCK 2 



/SETUP 1ST BLOCK 
/READ BLOCK 1 LO TO HI 



/ 

/RETURN 
/ 
RLKBl 



HERE AFTER READING A BLOCK LO TO HI 



/ 

TIRDA 

/ 

TlRDB 

/ 

/RETURN 
/ 

BLKCl 



LAW 

Tad 

SAD 
JMP 
LAW 
SAD 
JMP 
JMS 
JMP 

JMS 

JMP 

JMS 
JMP 



-1 

MEMADR 

BL0C4 

TlROA 


BL0C3 
TlRDB 
SETB2 
RLOPl 


STB2 
BAKl 


STBl 
BAKl 



/LAST ADDRESS 

/DONE boTh Blocks iF equal 

/READ 2 BLOCKS HI tO LO 

/SEE IF 2 SELECTED 
/NO. READ 1 HI TO LO 
/SETUP 2ND BLOCK 
/READ BLOCK 2 LO TO HI 

/SETUP BLOCK 2 FOR HI TO LO 
/READ BLOCK 2 HI TO LO 

/SETUP BLOCK 1 FOR HI TO LO 
/READ BLOCK 1 HI TO LO 



HERE AFTfR READING A BLOCK HI TO LO 



IS? 
NOP 
LAC 
SAD 
SKP 
JMP 
LAS 
SPA 
JMS 
AN! 



MEMADR 

MEMADR 
BLOCl 

TlRDB 



HA 
K2 



• 



/last address 
/all done if equal 

/setup block 1 

/check acs for alt 
/g^Aalt 



^AHE 



1 . 


1 A'- ?V.% 


.1 A 


■-116?3 




-.i'rP4 35 



..) '^ p 

J MP 

.f:jE;cT 



KYRRn 



/STa^T OVEP 



PAT.F 



y A rn s 



V:?^ 'A O 


1 ,v<; '70 


y 2'^M 


1. ^?775 


'A?^\l 


A 1 1 " 4 6 1 


?»pSll 


76(''.^00 


t<251? 


^ 4 4 3 2 2 


ki2613 


6 '1 2 -5 2 1 


02S14 


1 02704 


P!2'51'7 


1 ',^3/106 


^2510 


,''1^1^30 


i^2517 


n44307 


^252!^ 


^00541 


^-12521 


102 775 


02522 


67i'^567 


1^2523 


103017 


^2524 


ft00612 


02'52'5 


76"'000 


02'^26 


544322 


R2527 


^02534 


912531?' 


] 03006 


02531 


204031 


i;i2532 


P4'i307 


C^2533 


^00541 


02534 


103017 


1^2535 


750004 


02536 


741100 


02537 


1 01364 


H254H 


'SC14352 


«2541 


740200 


02542 


<S!;!1623 


02543 


600645 



/ 

/SETUP FOR TrST 
/ 

?IMU? 



/ 
BLKA; 



/ 

PLKB5 

/ 

Pl^cj 
/ 

PLKD? 



/ 

blke; 



Ji^S 


WRTIS 


JMS 


SETrI 


JMP 


L0P2+3 


LAW 




Sa" 


8L0C3 


JMP 


BLKB2 


JMS 


CKAOR 


JMS 


SETB2 


LAC 


00NE5 


OAT 


EXIT 


JMP 


REST2+2 


JMS 


SETBl 


JMP 


FWD2 


JmS 


STBl 


JMP 


8AK2 


LAW 




Sap 


aL0C3 


JMP 


RLKE2 


JMS 


SETB2 


LAC 


D0NE6 


OAC 


EXIT 


JMP 


REST2+2 


JMS 


STBl 


LAS 




SPA 




JMS 


HALT 


ANn 


K20 


SZA 




JMP 


KYBRD 


JMP 


RAK2A 


.EJECT 





/WRITE I'S INTD ALL OF CORE 
/SETUP FOR bLOcK 1 
/WRITE BLOCK 1 



/SEE IF 2 hLOCKS SELECT=^n 
/ONLY ONE SeLeCTeD 

/SETUP 2ND BLOCK 

/D0NF5 = LOCATION BLKB2 

/READ REST OF MEMORY 

/SETUP BLOCK 1 

/READ BLOCK 1 LO TO HI 

/SETUP Block i 

/READ BLOCK 1 HI TO LO 



/SEE IF 2 BLOCKS SELECTED 
/ONLY ONE SELECTED 

/D0NE6 = LOCATION BLKE2 

/READ REST OF MEMORY 

/RESTORE LIMITS 

/CHECK ACS0 FOR HALT 
/GO HALT 

/WRITE BLOCK 1 HI TO LO 



PAr,E '■* S 



/ 

/SETUP 



FOR TTST ? 



; 2=^4^ 


1 .V^/70 


■. ' ? s <i "- 


10? 775 


/?^46 


^1,11-710 


i,'. P1--47 


'^ A 4 /) 3 2 


i^ 2 =5 tj ^' 


■M43(.i7 


'?>?-. 5 1 


760000 


,T ;? n 5 5 


■=^44322 


i')25'53 


60?557 


M2554 


1 0?704 


^.2551^ 


1 03006 


^^2556 


'^00541 


^^2=157 


10?775 


02'56l< 


6 76 4 


H2'^6l 


5^4^133 


0256? 


^44307 


?!2563 


760 100 


02'564 


544322 


tl2'565 


602567 


02566 


^0?555 


•"12567 


7'50004 


^"'2570 


741100 


1^2571 


1 01364 


0257? 


^04352 


02573 


7 4 200 


02574 


^01623 


0257-^ 


204344 


02576 


544405 


02577 


602544 


02600 


744010 


02601 


4 4 344 


02602 


102775 


02603 


-^00712 



S I M U 3 



/ 
'5LKA3 



/ 
RLKB3 

/ 

RLKC3 



/ 
BLKD3 



J iX S 

LAP 
OAC 
LAvv 
SAM 
JMP 
JMS 
JMS 
JMP 

JMS 

JMP 

Lac 
OAC 
LAW 
SAO 
JMP 
JMP 

LAS 
SPA 
JMS 
Aivin 
S£A 
JMP 
LAC 

SAn 

JMP 
RCL 
OAC 
JMS 
JMP 
.EJECT 



WRTIS 
SETBl 
L0P3+3 

nONE7 
EXIT 

RL0C3 
RLKB3 
CKADR 
SETB2 
REST2+2 

SETBl 
FWD3-3 

nONE8 
EXIT 

SL0C3 
RLK03 
SLKB3-2 



HALT 
K20 

KYBRD 
BITN 
K400K 
SIMU3 

RITN 

SETBl 

L0P3+5 



/WRITE IS INTO ALL OE CORE 

/SETUP EOR BLOCKl 

/WRITE BLOCKl 

/D0NE7 = LOCATION BLKB3 



/SEE IF 2 BLOCKS SELECTED 
/NO 

/SETUP EOR BLOCK 2 
/READ BLOCK 2 

/SETUP EOR BLOCK 1 
/REaO BLOCK 1 AGAIN 

/DONES = LOCATION BLKD3 



/SEE IF 2 BLOCKS SELECTED 
/NO 



/CHECK ACS FOR HALT 
/GO HALT 



/DONE 18 BITS IF EQUAL 
/START OVER 

/NEXT STARTING POSITION 
/SETUP FOR BLOCK 1 
/WRITE BLOCK 1 



PAGE -i' 



< ^ T; 1 S 







/ 

/ S r TJ P F ' P T ^- S T 1 




■,-;>f-./i" 


^ y1 ? 1 7 


/ 

$ I K U 4 


^ •- 


wRTlS 


'26'.'^ 


•^ i.)?775 




JM< 


SETBl 


!/ ? (S '^ 6 


1 44273 




r /M 


CNTRL 


.1261^7 


hC^} ^46 


/ 

bLKA'' 


Ji^' 


L0P4+3 


112^.11'. 


?047|34 


LA(^ 


nONE9 


i^2bll 


i'4 4 3?!7 




A ': 


EXIT 


t^2f>l? 


1f'!?775 




J M *-^ 


setbi 


0261? 


^ '/1 1 1 3 3 




JMP 


RBLK4 


("261'* 


'Pl''v535 


/ 
PLKB'* 


Lac 


noNia 


H2615 


'•4A5li7 




nAP 


EXIT 


i'261'^ 


1 (713017 




J MS 


STRl 


M2617 


'-01165 




j^p 


fiAK4-3 


R262i' 


''04") 3 6 


/ 

RLKC4 


LAP 


DONll 


:'I2621 


'/ 4 4 3 P! 7 




HAP 


EXIT 


02622 


76'^^00 




L A \< 




0262? 


544322 




SA'^ 


RL0C3 


(^, 2 6 2 -» 


6?)?630 




JMP 


RLKD4 


R 2 6 2 ^ 


1 02704 




JMS 


CKADR 


P12626 


1 (13^06 




JMS 


SETB2 


?.2627 


60(^541 




JMP 


REST2+2 



/yifilTi i^ I'^HI ALL OF CORE 

/WRITE BLoi'K 1 Ln TQ HI 
/DONF9 = LPCATION BLK84 

/RFAO PLOCK 1 LO TO HI 

/DON10 = LOCATION BLKC4 

/SETUP FOR BLOCK 1 
/READ BLOCK 1 HI TO LO 

/OON11=lOCATION RLKD4 



/SEE ir 2 RLOCKS SELFCIEO 
/NO 

/SETUP FOR BLOCK 2 
/REAO BLOCK 2 



.EJECT 



f/s G E 



!. 


■ ' --73 


•- • .-^ ■ 


■ ■ '• •■£ 


. ,'■■ < : 


-.•'^&3 7 


. > M Ji ."i 


-^4 ;n 


~'?t^'i^ 


44273 


^ 2 6 3 "S 


1 1^775 


;'?6 3r' 


,*- P 1/14 6 


.^2'^ ^7 


•44274 


12^411 


1 £13^17 


'i ? 6 4 1 


6^^1224 


..12A4? 


?,^4^37 


.^2643 


^'44307 


.'?644 


76PI000 


' ?64S 


')443?2 


■■' 2 6 4 (S 


'<M2b50 


11264 7 


''i'^4;^33 


5'2fe5i^ 


204(^40 


?12651 


i'44307 


-1265? 


10?775 


1^2653 


504273 


.'26=54 


7 4 .' v^ 1 


.^•265'= 


6(^1134 


,126S6 


2.1-5.H1 


.•25^7 


£''44307 


v' 2 .^ fc. i^ 


21^14273 


?'2t'61 


/ 4 4 2 7 4 


P2662 


103017 


fl2663 


601170 


t-'2664 


2 tl 4 4 2 


i^?.b65 


^"44307 


02666 


760^00 


02667 


544322 


fl267Pi 


60''672 


^'2671 


604033 


^267? 


?04273 


C12673 


741201 


02674 


602637 


l'i267S 


75«004 


Pi267^ 


741100 


f2677 


101364 


f» 2 7 (1 


"^04352 


' 2 7 ^1 1 


740200 


i' 2 7 ,j 2 


601623 


.' -? 7 3 


602604 



/ 

1'LKD4 



/ 

BLKE4 

/ 

BLKE4 



/ 
BLKG4 



/ 

RLKH4 



/ 

BLKJ4 



/ 

BLKL4 



S)^ .'. 

r :.^ 5 
nar 
JMS 
JM"^ 

TAT 
JMS 
JMP 

LAC 
DAC 
LAW 
SAn 
JMP 
JMP 

L A C 
DAC 
JMS 
LAC 
CMA 
JMP 

LAC 

DAC 
LAC 
DAC 
JMS 
JMP 

LAC 
DAC 
LAW 

Sad 

JMP 
JMP 

LAC 

SNAl 

JMP 

LAS 

SPA 

JMS 

AND 

S2A 

JMP 

JMP 



-NTkI 



'LKE4-1 



CMA 



CNTRL 
SETBl 
L0P4+3 


PATR 
STBl 
L0P4A-1 


D0N12 
EXIT 


BLoC3 
BLKG4 
OONll-3 


nOM13 
EXIT 
SETBl 
CNTRL 


RBLK4+1 


00N14 

EXIT 

CNTRL 

PATR 

STBl 

8AK4 


D0N15 
EXIT 


BL0C3 
BLKL4 
DONll-3 



CNTRL 



BLKE4-1 



HALT 
K20 

KYBRD 
SIMU4 



/WRITE HI TO LO 



/SETUP FOR BLOCK 1 

/WRITE COMPLEMENT LO TO HI 



/SETUP BLOCK 1 

/WRITE BLOCK 1 HI TO LO 

/D0N12 = LOCATION BLKG4 



/SEE IF 2 BLOCKS SELECTED 

/NO 

/READ BLOCK 2 

/D0N13 = LOCATION BLKH4 

/SETUP BLOCK 1 

/READ BLOCK 1 LO TO HI 
/D0N14 = LOCATION BLKJ4 



/00N15 = =LOCATION BLKL4 



/SEE IF 2 BLOCKS SELECTED 

/NO 

/READ BLOCK 2 



/WRITE COMPLEMENT HI TO LO 

/CHECK ACS FOR HALT 
/GO HALT 



, lJECT 



PAGE 



XAfi 



»?7.1'1 


M-i'i '^""i^ 


r: K A D ^f 


?i 




/?7v1H 


■>.-AS?2 




LA'' 


« L C 3 


I Pl Ah 


7 4-\101 




CMA 




:' ? 7 ,1 7 


,< d 4 3 4 6 




TAO 


Kl 


J\21\iA 


-^44,523 




TAn 


BL0C4 


I' 2 7 1 1 


/ 4 ^n 




SMA 




i^271? 


f>?'?704 




JMP» 


CKADR 


1^371:^ 


204322 




LAC 


RL0C3 


f'2714 


!'43737 




nAC 


CRLF 


(^271=5 


2 4 323 




LAC 


RL0C4 


1^2716 


!.'44322 




OAC 


BL0C3 


fl2717 


?'^3737 




LAC 


CRLF 


P?72ti 


■,M4323 




DAC 


RL0C4 


kl272t 


62?704 


/ 
SETBAK 


JMP» 


CKADR 


P"2722 


1/100000 







^272^ 


?(5'»30l 




LAC 


LASTl 


02724 


1^4340 




OAC 


patbnk 


02725 


■M4276 




OAC 


SVADR 


02726 


244377 




xOr 


K7777 


02727 


P44275 




OAC 


MEMADR 


t^2730 


770000 




LAW 


-10000 


02731 


044277 




DAC 


CT4K 


02732 


622722 


/ 

SETl 


JMP» 


SETBAK 


02733 


00 000 







02734 


204300 




LAC 


FIRSTl 


02735 


i.''44275 




OAC 


MEMADR 


02736 


044340 




DAC 


PATBNK 


02737 


770000 




LAW 


-10000 


02740 


044277 




DAC 


CT4K 


02741 


622733 


CKBAK 


JMP« 


SETl 


0274? 


000000 







02743 


204275 




LAC 


MEMADR 


02744 


504403 




AND 


K70K 


02745 


043737 




DAC 


CRLF 


02746 


101360 




JMS 


WHERE 


02747 


543737 




SAD 


CRLF 


02750 


741000 




SKP 




02751 


622742 




JMP* 


CKBAK 


0275? 


102765 




JMS 


NXBAK 


02753 


602756 




JMP 


.>-3 


02754 


442742 


NONE 


IS? 


CKBAK 


02755 


622742 




JMP» 


CKBAK 


02756 


770000 




LAW 


-10003 


02757 


044277 




DAC 


CT4K 


02760 


344276 




TAD 


SVADR 


02761 


044276 




DAC 


SVADR 


0276? 


244377 




XOR 


K7777 


02767 


044275 




OAC 


MEMADR 


02764 


602743 




JMP 


CKBAK+1 



/IST IS >2N0 IF SKIP 
/EXIT 



/REVERSE BL0C3 AND BL0C4 



/EXIT 

/LAST TO TEST 



/LAST ADDRESS 

/MASK BITS 3.4.5 

/SAVE 

/SEE WHERE PROGRAM IS 

/NEXT HAS PROGRAM IF EQUAL 

/EXIT 

/SEE IF CURRENT IS LAST 

/SUBTRACT 4K 

/RETURN +1 



/NEXT FIELD 



/CHECK NEW FIELD 



.EJECT 



^GE 



VAu:- 



." :? 7 6 '^- 

:' 27 6 6 

r ? 7 6 7 
v^277C' 
i^?773 
(^2777 

M277:< 



H30ti6 
0301^7 
H 3 Pi 1 

03012 
("3013 
03014 
0301S 
03016 



^ 4 1 1 ? 

1 '^\i6A, 
?14276 
^4.'. 300 
A rJ7 54 
6?l?756 



0277'7 


•'00000 


1^2776 


204320 


!^2777 


.144275 


i' 3 i' 


740i101 


»30ni 


344346 


/3ti0? 


?4432l 


s'3003 


74i^v101 


I^ 3 4 


i-- 4 4 2 7 7 


?3005 


62;'77'5 



'-.)-' 000 
?'i4 322 
( 44275 
7 4 "001 
344346 
344323 
7 4 :» <3 1 
f44277 
'^ 2 "^ '^ 6 



/ 

/CHECK 
/ 

N X H A K 



/SETUP 

/ 

SETBl 



/SETUP 

/ 

SETB2 



FOR LAST flELO 


LAS 

SP4 

JMS MALT 

LAC SVADR 

SAD FIRSTl 

JMP NJONE 

JMP '-J0NE + 2 



/CHECK ACS FOR HALT 



/MO MORE TO TEST 
/SETUP FOR NEXT 



ADDRESSES FOR 1ST BLOCK LO TO HI 





LAC 

DAC 

CMA 

TAD 

TAD 

CMA 

DAC 

JMP» 



i^LOCl 
ME MA OR 

Kl 
HL0C2 

CT4K 
SETBl 



/IST ADDRESS 



/2'S COMPLEMENT 
/SUBTRACT BL0C2 
/COMPLEMENT RESULT 

/EXIT 



ADDRESSES FOR 2N0 BLOCK LO TO HI 





LAC 

DAC 

CMA 

TAD 

TAD 

CMA 

DAC 

JMP» 

•EJECT 



RL0C3 
MEMADR 

Kl 
RL0C4 

CT4K 
SETB2 



/iST ADDRESS 



/2'S COMPLEMENT 
/SUBTRACT 



/EXIT 



P A r, F 4 >i 



X 4 r I ■ 



n ,3 (^ 2 3 
■/ 3 H 2 1 

H3P'26 
1^3027 



i^3P'3l 
l^3H3? 

t13P'3'» 

(^3036 
03037 
fi304Pi 
fi3041 
H3042 



4^275 
■^ v1 ■'^ 5 2 

7 4 -* ;^ ^ 1 

:^ 4 4 3 4 6 
:<4432i 

74Pi/)01 
'44277 
623/11 7 



■5 1-14323 
r/ 4 4 2 7 5 
2^4322 
74?0PH 
344346 
344323 
74P301 
IM4277 
623031 



/ 

/SFTUP HLOni\ 1 AHDRESSES FOR HI TO LO 

/ 

'^ T R 1 n 



LAC 


^L0C2 


OAC 


-(EMAD 


LAC 


■■(LOCI 


CMA 




TAO 


Kl 


TAD 


RLOC? 


CMA 




DAC 


CT4K 


JMP» 


STPl 



/LAST ADDRESS 



/2'S COMPLEMENT 
/SUBTRACT 



/SETUP BLOCK 2 ahdRESSeS FOR HI To LO 
/ 



STR2 





LAC 

DAC 

LAC 

CMA 

TAD 

TAO 

CMA 

DAC 

JMP» 



HL0C4 

MEMADR 

RL0C3 

Kl 
^iL0C4 

nT4K 
3TB2 



/LAST ADDRESS 



/2'S COMPLEMENT 
/SUBTRACT 



.EJECT 



pAr,£ 4 '^ 



yAi-a-- 







' .„• r ^ t^ R A T F i^ i - A R Y 


AOD'^L'^S FPOM KFYrOaPO 


'y,:' M 


' ■ «n0 


r.r\A )R 


i^ 




<''i!/ ■i'* 


'' ? 4 .1 1 ^^ 




x:t« 


ROTA 


..1 3 (/ 4 5 


-■44311 




riAC 


KiROTA 


/1 3 (^ 4 ^ 


;■' '1 4 j 4 4 




LAC 


RITN 


?13i^47 


■^44311 


'-NROT 


IS? 


NROTA 


i130'5i' 


M?I3^66 




J MP 


GOLEFT 


H.5051 


? 4 4 3 f 6 




XUK 


AORCW 


1-13115? 


■ ' 4 4 30 6 




HAC 


ADRCW 


(^3^53 


777777 




LA« 


-1 


C 3 1I 5 4 


S 6 4 .a 1 PI 




SAn» 


ROTA 


H3f^55 


633^60 




J^IP 


.+3 


03^^56 


144 n0 




13^^ 


ROTA 


^i3f^57 


fi?^ 143 




JMPo 


GENADR 


(-1 3 (» 6 f 


7f54aii 




LAC 


ROTB 


03«61 


!'44010 




UAC 


ROTA 


0306? 


4 74 010 




XCT» 


ROTA 


«3063 


>• 4 4 3 1 1 




DAC 


NROTA 


f)3(164 


^47^143 




IS? 


GENADR 


V\3<a6^ 


'■?3^43 


/ 

GOLEFT 


JHP» 


GENADR 


(?I3P!66 


744^10 


RCL 




t^3067 


60^1^47 


/ 


JMP 


CNROT 






/ROUTINE 

/ 
WRTlS 


TO I^RITE 


I'S INTO ALL OF MEMOF 


vi307(^ 


;» 'I '.' .1 n 







03R7t 


?^4300 




LAC 


FIRSTl 


03«7? 


!^44275 




OAC 


MEMAOR 


5)3073 


•44276 




OAC 


SVADR 


?I3074 


770000 




LAW 


-10000 


«3f175 


•.'M4277 




OAC 


CT4K 


H3076 


744002 




STL 




03077 


101276 




JMS 


CBANK 


0310(? 


741^00 




SKP 




(^3101 


623070 




JMP» 


WRTlS 


«310? 


mill 


RITE 


LAW 


-1 


03103 


"64275 




DAC* 


MEMADR 


03104 


444275 




IS? 


MEMAOR 


03105 


444277 




IS? 


CT4K 


03106 


603103 




JMP 


. -3 


03107 


744;^02 




STL 




C3110 


101344 




JMS 

.EJECT 


NXTBNK 



INPUT 



/XCT A LAW MINUS X. 



/IMPiiT NUMBER 

/SHIFT COUNT+1 

/ROTATE 1 LEFT 

/XOR WITH PARTIAL ADDRESS 



/DONF '^ DIGITS IF EQUAL 

/LAW POINTFR+1 
/GO WAIT FOR NEXT 

/RESTORE LAW POINTER 
/GET THE LAWS 

/RETURN+1 
/EXIT 



/SEE IF IT HAS PROGRAM 

/NO 

/EXIT 

/AC=777777 

/WRITE 

/ADDRESS+l 

/DONE 4K WHEN 2ER0 



/SETUP FOR NEXT 



P A (^ E ^ '■ 



xan-L' 



<AD15 - TA^f" 4 

-.OUTINE Til -ETf 'MINT FI!-:LD FOR RFLOcaTION 



■•-l 3 1 1 ? 
M 3 1 1 3 
v^3114 
1^311'^ 
03116 
H3117 
S^3i2i'" 
ti3l21 
03122 
«3123 
ii3l24 
?I312^ 
03126 
03127 
03130 
03131 
03132 
03133 
03134 



• ■'4, -43 

44325 

'^ .1 4 301 
^ 4 4 3 ,-> ? 

*> ■!f22l 

y ;1 4 2 7 

741100 
6,1^221 
7 4 i'' /) 2 
7414?I0 
6ia3210 

444270 

?34301 
(M4271 
770000 
344271 
;M4312 
131360 
■544271 
603173 



■~ '-1 V t 



LAP 


rh(TBL 


nA(~ 


ERWRn 


LAC 


LASTl 


SAO 


FIRSTl 


JMP 


RTNi 


LAC 


FLAGS 


SPA 




jMP 


RTNl 


PAH 




S^L 




J~IP 


NXTMV 


IS'' 


FLAGS 


LAC 


LaSTI 


nAC 


IfJSFLO 


LAW 


-10000 


TAD 


INSFLO 


DAC 


NXLOC 


JMS 


WHERE 


SAD 


INSFLD 


JMP 


SUBl 



/LAST TO TEST 

/DON'T i^OVE IF EQUAL 

/RFTliRN 

/PROGRAM FLAGS 

/FORCED MOVE MADE IF A 1. 

/DON'T MOVE 

/LINK = PIT 17 

/FIRST MOVE IF SKIP 

/SETUP FOR NEXT MOVE 

/SET FLAG FOR 1ST MOVE 

/LaS = % NEt^CURRENT FIELD 

/-4K 

/SUBTRACT 4K FROM CURRENT 

/NXLOC = DEST'N FOR NEX' TIME, 

/WHERE ARE WE NOW 

/ALREADY IN LAST 1 IF EQUAL 

/TRY NEXT LOWER 



.EJECT 



'.E -^l 



XAI'i 







/fJOW CHECK FOR f 
/ 


-'ROR RECORDED 


;^ :^ 1 ,^ - 


7n . '^;/!.?l 


CKERR 


LAk 




P3j ^^ 


■.',-.3?5 




S A [} » 


ERWRD 


413137 


'•' .1 ^ 1 5 a 




JMP 


STMV 


?> 3 1 4 t' 


:^?4 325 




LAC» 


ERWRD 


i1 3141 


544271 




SAD 


INSELD 


1^33 4? 


6^3162 




JMP 


EQUAL 


£^314 < 


444325 




IS? 


ERWRD 


1713144 


?'.i4325 




LAC 


ERWRD 


0314S 


=■ 4 4 ,J 4 4 




SAD 


ENERR 


M314^. 


741 ,100 




SKP 




-■» 3 1 4 7 


-•:'1314 


/ 

STMV 


JMP 


CKERR+3 


(131=5" 


'J -.1 4/143 


LAC 


ERT8L 


•/i3151 


^44325 




DAC 


ERWRD 


03152 


2;.i427l 




LAC 


INSFLD 


ii3153 


p 4 4 3 1 4 




nAC 


DESTN 


03154 


1 11360 




JMS 


WHERE 


■-^3155 


'^44313 




DAC 


SOURCE 


P13156 


544314 




SAO 


DESTN 


03157 


6P)022l 




JMP 


RTNl 


?i316M 


2554314 




LAC 


DESTN 


(^3161 


6;«325 


/ 

/ERROR 
/ 
EQUAL 


JMP 


MOVE 






IN NEW EIELD, TRY NEXl 


?i3162 


544300 


SAO 


EIRSTl 


:-'3l63 


6 :-? 3 2 f 5 




JMP 


DNMVE 


P13164 


741200 




SNA 




03165 


603171 




JMP 


.+4 


C3166 


770>!J00 




LAW 


-10000 


03167 


34427I 




TAD 


INSFLD 


M 3 1 7 


i'M4312 




DAC 


NXLOc 


03171 


204043 




LAC 


ERTBL 


(^317? 


"'44325 


/ 

SUBl 


DAC 


ERWRD 


03173 


204312 


LAC 


NXLOC 


03I74 


544271 




SAD 


INSFLD 


1^3175 


^^03162 




JMP 


EQUAL 


03176 


PI44271 




DAC 


INSFLD 


03177 


544300 




SAD 


FIRSTl 


0320i^ 


603135 




JMP 


CKERR 


«3201 


771^000 




LAW 


-10000 


(^3?0? 


344271 




TAD 


INSFLD 


03?03 


CM4312 




DAC 


NXLOC 


■7 3?^ A 


603135 


/ 
ONMVE 


JMP 


CKERR 


03?05 


27I4043 


LAC 


ERTBL 


M3P06 


i-'44325 




DAC 


ERWRD 


'.^32^7 


^01^221 


/ 


JMP 
.EJECT 


RTNl 



IN NFW n LLO 



/NO ERRORS IF = LAW 
/INITIALIZE MOVE 

/ERROR IN FIELD IF EQUAL 

/POINTER + 1 

/END OF TABLE IF EQUAL 



/RESTORE POINTER 
/NEW FIELD 



/NEW AND CURRENT ARE EQUAL 



/MOVE PROGRAM 



/DON'T TRY NEXT IF EQUAL 

/IS IT FIELD 

/YES 

/-4K 

/SUBTRACT 4K FROM NEW FIELD 

/NEXT NEW FIELD 

/RESTORE POINTER 

/NEXT NEW FIELD 

/IS IT = CURRENT NEW FIELD 

/TRY NEXT LOWER 

/NEW NEW Field 

/DOES IT = LOWEST FIELD 
/CHECK FOR ERROR 

/SUBTRACT 4K 

/NEW FIELD FOR NEXT PASS 



/RESTORE POINTER 
/START OVER 



PAGE 







/ROUTINE 


TO .- E T t: w M 


I N r P R I) G R 


'5P1 


■ --^ Af-'A 


M X T M V 


J.-i- 


■J H r R E 


•^?l■ 


44o13 




n ^ i; 


^ource 


■' 3 ? 1 - 


7 -,'.' .U-lvl 


CKNXT 


LA.- 




13?13 


-^4325 




SA'i* 


FRURD 


■'3214 


- ^1^227 




JMO 


STMxT 


-/3?1'^ 


•5 P 4 iM 3 




LAC 


ERTBL 


?3?1^ 


: 44325 




DAC 


ERWRD 


iM2l7 


; 24 325 




LAC» 


ERWRO 


0322^ 


1-44312 




SAH 


NXLOC 


?i322l 


A -1 5 2 4 7 




JM'^ 


SUR2 


'1322? 


4 4 4 3 25 




IS? 


ERWRD 


^13223 


';.i4325 




LAC 


ERWRO 


.13224 


'^ 4 4 J 4 4 




SAH 


ENERR 


3322'=' 


7 4 1 .l 




S<l^ 




i'Z22h 


f^ -^ 3 2 1 7 


/ 
STNXT 


JMP 


CKNXT+5 


(^3227 


PS14^43 


LAC 


ERTBL 


1^323'-' 


'M4325 




PAC 


ERWRD 


0323] 


?04312 




LAC 


NXLOC 


H3232 


544271 




SaO 


INSFLD 


03233 


603236 




JMP 


.+3 


H3234 


544300 




SAO 


EIRSTI 


0323^ 


61713264 




JMP 


MVBK 


^I323^ 


^44300 




SAP 


EIRSTi 


03237 


603260 




JMP 


NXTHI 


0324f^ 


■;'4427l 




DAC 


INSFLO 


03241 


770000 




LAW 


-10000 


03242 


344271 




TAD 


INSFLD 


03243 


044312 




DAC 


NXLOC 


03244 


204271 




LAC 


INSFLD 


0324'5 


044314 




DAC 


OESTN 


03246 


603325 


/ 
SUB2 


JMP 


MOVE 


03247 


204312 


LAC 


NXLOC 


03250 


•=^44300 




SAD 


FIRSTi 


03251 


603205 




JMP 


DNMVE 


0325? 


770000 




LAW 


-10000 


03253 


344312 




TAD 


NXLOC 


03254 


v144312 




DAC 


NXLOC 


03255 


544271 




SAPi 


INSFLD 


03256 


603250 




JMP 


SUB2+1 


03257 


603215 




JMP 


CKNXT+3 



■N AFTER MAKING ONE MOVE 

/WHEPE IS PROGRAM NOW 

/NO ERRORS IE 1ST = LAW 

/GET AN ERROR ADDRESS 

/ERROR IN NEXT FIELD TF" NEXT 

/DONE Table and no errors 



/RESTORE POINTER 

/NEW FIELD 

/DOES IT = CURRENT FIELD 

/DOES IT = LOWEST FIELD 

/YES. CLEAR FLAGS AND MOVE 

/DOES THE CURRENT ALSO= 

/THE LOWEST FIELD. 

/YES. SETUP FOR HIGHEST FIELD 

/NEW CURRENT FIELD 

/-4K 

/NEW NEXT FIELD 



/MOVE FROM HERE TO C (OESTN) 



/IS NEXT = FIELD OR iST TO TEST 

/YES. DON'T MOVE 

/-4K 

/NEW NEXT FIELD 

/DOES IT = CURRENT FIELD 

/YES 

/SEE IF ERROR IN NEW FIELD 



•EJECT 



ii r; E '7 3 



X Ani'- 



■•'3?6- 


■ ^ .1 n- 1 


N X T H I 


LAC 


LASTl 


■' 3 ? 6 1 


-.'.)4;13 




A .\j ; 1 


K7P1K 


f3?ft" 


'•-.^3 




n A<" 


^ X L C 


!' 3 ? f> 3 


. ,^ s 9 1 5 


/ 
"VBK 


J '-1 1- 


C K N X T t 3 


03?6': 


1^13 6 


JMS 


INHERE 


H3?6S 


44313 




nAC 


SOURCE 


i^3?66 


- 4 3 1 2 




LAC 


NXLOC 


03P67 


■44271 




DAC 


INSELD 


ti X o 7 - 


.44 314 




DAC 


riESTN 


"'^P71 


1 44?7a 




Di!H 


ELAGS 


r'3?7" 


^'^3325 




.EJECT 


MOVE 



/LAST TU TEST 



/LAST : 
/CHtCK 



NEXT EIELO 
FOR ERROR 



PACE T ' 



\ A ■'■ 1. ■-. 







/^^OUTINE 


TO VO»C 


r MOVE THE 






^ f" I f L D * 


M U =; T r! f 


TYPEn IN 8Y 


"> Ti^y ^■ 


;i -5 4 4 ?1 5 


/ 

r C D M V 


L A r 


K400K 


'/'i27A 


7 4 i--' /) {"• 1 




r 1A 




'?-S?7b 


^.14270 




A M 


FLAGS 


ti3?7^ 


y 4 4 4 5 




xu^ 


K400K 


PI 3 P 7 7 


v" 4 4 2 7 




rui: 


FLAGS 


M 3 3 i" 


'J 4 if 4 3 




L^r 


ERTBL 


33i?)l 


'144325 




riAn 


ERWRD 


v1 3 3 »1 ? 


1 3 4 ? 6 




JMS 


GOTO 






/check f 
/ 

CKFCn 


OR e^WOR 


IN NEW FIE 


1^33a3 


76P1300 


LAW 




PI 3 3 « 4 


^^64325 




SAP* 


ERWRD 


?)33iiis 


603321 




JMP 


WHWaY 


H 3 3 'i? 6 


?24325 




LAC» 


ERWRD 


i?l3307 


444314 




Sao 


DESTN 


M331« 


^03316 




JMP 


XPRT 


1^3311 


444325 




IS? 


ERwRO 


1^331? 


204325 




LAC 


ERWRD 


1^3313 


R44044 




SAO 


ENERR 


03314 


603317 




JMP 


.+3 


PISSl-S 


603306 




JMP 


CKFCO+3 


03316 


1 03404 


XPRT 

/ 


JMS 


PRSEL 


03317 


204043 


LAC 


ERTBL 


£5332P 


044325 




DAC 


ERWRD 


03321 


204314 


WHWAY 


LAC 


DESTN 


03322 


544313 




SAD 


SOURCE 


03323 


600221 




JMP 


RTNl 


03324 


044271 




OAC 


INSFLO 



PROGRAM. OFSTINaTION 

The opfrato>^ (c-? octal) 



/SET BIT FOR FCDMV FLAG 



/RESTORE Table pointer 

/PRIN'T GO TO FIELD 



/NO ERRORS IF 1ST = LAW 
/SEE WHERE TO GO 

/qOES ERROR = NEW FIELD 
/YES, PRINT MESSAGE 
/POINjER+l 

/SEE IF END OF TA8LE 
/DONE AND NO ERRORS 

/PRINT ERROR IN SELECTED 4K 



/NEW FIELD 

/DOES IT EQUAL PRESENT 

/NEW CURRENT FIELD 



.EJECT 



T-E 



'UT[Nt Tri 



•atf: The program 



■ ^ , 


■ ; ; -T 4 . ' 


3 ? '' • 


•"'.■ ■.■0 


■ < -J ■} -• 


.4/77 


' 7 ; "^ ■ 


■■■ '4313 


'." -s • ?! - 


: 4 3 1 6 


' ■_■! .^ .^ ~ 


'4314 


.'3:<:'/ 


-■-315 


i^ 3 :< ,< .. 


-: 4 3 1 6 


■ v^ s s 


• 4 4 5 4 5 


•i3 3,'- 


■ r. -; 4 1 J 


■ .5 5 3 "^ 


64315 


.'33 40 


•'?4315 


.'3 7''-- 


==^64316 


:-' 33 4? 


74- .500 


f3343 


1 /I 3 '7 3 


"3344 


4443 -J f. 


'/1334s 


44 : ,15 


P' 3 3 4 A 


4 i 4 --7 7 


P 3 3 4 7 


"■■-" >10 


0335^ 


'.^ v>i76 


PI3351 


"■-345 


■355- 


•"^■•. -,10 2 


.'33'^ 3 


^41 100 


t13334 


^ ,1 "^ 3 3 4 


t' 3 3 '5 "^ 


^^4316 


'3356 


-44064 


"3357 


'■■1333'^ 


'13 3 6!' 


■^04377 


1^3361 


•? 4 4 3 1 4 


H336? 


133413 


^"3363 


t'64315 


£^3364 


224315 


i'336^ 


'-04377 


03366 


244313 


03367 


564316 


C"337PI 


741000 


P!337l 


103510 


03372 


444316 


03373 


444315 


0337a 


444277 


03375 


603355 



OVE 



l^OSOM 



AJIN 



1 1 / M 


LOCEt< 


L ■-. A 


-10000 


r,,^,- 


CT4K 


LAC 


SOURCE 


OAC 


MOVES 


LAC 


HESTN 


HAG 


MOVED 


I, A C « 


MOVES 


DAC 


TNUM 


JMS 


PT19L 


DAC* 


MOVED 


LAC» 


MOVED 


SAOft 


MOVES 


SKP 




JMS 


MVERR 


IS? 


MOVES 


IS2 


MOVED 


IS? 


CT4K 


SKP 




JMP 


DIND 


LAC 


TNUM 


Sad 


DLMT 


SKP 




JMP 


MOSOM 


LAC. 


MOVES 


SAD 


DLMTA 


JMP 


MOSOM-fi 


AND 


K7777 


xos 


OESTN 


JMS 


RT19L 


DAC» 


MOVED 


LAC* 


MOVED 


AND 


K7777 


XOR 


SOURCE 


SAO» 


MOVES 


SKP 




JMS 


MVERR 


IS? 


MOVES 


IS? 


MOVED 


IS? 


CT4K 


JMP 


AJIN 



/-4K 

/4K COUNTER 

/CURRENT FIELD 

/NEW FIELD 

/MOVE FROM CURRENT 
/SAVE 

/PUT IN NEW FIELD 

/READ BACK 

/COMPARE 

/OK 

/PRINT ERROR INFO 

/INCREMENT ADDRESSES 



/DELIMITING CHARACTER 
/ADJUST INOIRECTS 



/DONE INOIRECTS IF EQUAL 

/MASK ADDRESS BITS 
/PUT FIELD NUMBER ON IT 

/PUT IN NEW FIELD 
/READ BACK 



/COMPARE 

/OK 

/PRINT ERROR INFO 

/INCREMENT ADDRESSES 



.EJECT 



PyinE '-yr 






1 ; .l^5 

^ ■ .; .M 7 
-.'.: <77 
■..4514 
■ 4 4 ^5 1 7 
o d .^ 1 7 



m 



J ■-■ '- 


f NOT 


LiC 


'<^,^'L0 


fl ■"< '~' 


<7777 


X u -. 


n E S T M 


A (" 


RGNLO 


J ■'! ^- * 


OGNLO 



/WAS TRaNSFE'^ f^AOE OK 
/Ctfl^NLO) : I- or RTM 
/MASK AOnRFSS 



/EXIT FROM HERE TO LOC 
/RTNl IN N~W FIELD 



.EJECT 



^TG F' -^ / 



XAI 



\^ -' . 1 -^ 


1 .i< ■■ '. 7 


■,* ,^ '\ . ' ■". 


y !-> £. / =; ? 


ii;5/. .17 


■iASi^5 


'■ ,^ " 1 r 


1 '-/! -^ 7 Ci 1 


■'7>^i- 


^■^'^7 7■7 


t 3-' 1 "' 


■ -■' ^ 2 7 .-^ 



'■ ? '1 1 ,^ 

^' S 4 14 

(-' 3 4 1 (^ 
V13417 
■M 4 P ;•■. 

1134 22 
''3423 
■^3424 

^34 2'> 



744;r)00 
"44345 
777767 
;'44344 
? ?l 4 3 4 5 
7 4 '^ i1 1 
7 4 2 !■' 1 
444344 
60342^ 
^23413 



/ 

/PRINT 
/ 



t f' R ' 



I \' 





MA'.: 




J'-'S 




J MP 


/ 




/^OTaTF 


INSThU 


/ 




RT19L 


f* 




CLL 




HAG 




LA is 




HAT 




LAP 




RAL 




RTL 




IS? 




JMP 




JMP» 



^fiLETTfO 4K 



CRLF 

fr«;el 

PNXT 
CRLF 
FCOMV 



/CR-LF 

/TEXT PQI.MTER 



/PR INT 

/wAlT FOR ANOTHER CHOICE 
NSThUCTfON 19 LEFT BEFORE MOVING 



TNUM 
-11 
RITN 
TNUM 



RITN 

.-2 

FiT19L 



/LINK = 

/SAVE 

/-9 DECIMAL 

/SHIFT COUNT 

/INSTRUCTHON 



.EJECT 



PA'-F 







/ -x r V ,., ;^ .< r, p 1 ) T I N r 


COR FORC 


^ ^ J ,■ 


■ 1 r ,'-'^1 


HOT I, '-'^ 




,434? 7 


7 s s ■ . ' 4 


LAS 




■■'34 3'' 


'-, ,,1 4 ,< S 3 


A'^J^'. 


K40 


■V3 4.5T 


7 4 1 ^ r-^ 


S'->lA 




•" 3 4 5 P 


h .1 ,? 4 4 4 


J'lP 


NOSW 


i^ 3 4 3 3 


VI -^ 7 3 7 


Ji-lS 


CRLF 


VI3434 


V 11 4 .■! 4 5 


LAC 


PTWLV 


;'i343'^ 


.■44305 


DAC 


PRNT 


H343^ 


1 ;7i 3 7 1 


JMS 


PNXT 


^3437 


7 s ;i .') 4 


LAS 




i-;34 4(- 


■^-5 4 55 3 


ANjn 


^40 


^3441 


740200 


S^iA 




''''34 4? 


603437 


JMP 


.-3 


'/ 3443 


133737 


JMS 


CRLF 


^' 3 4 4 4 


1 03737 


N S fc» JMS 


CRLF 


'/34 4'^ 


^■04046 


LAC 


GOFL 


MA Ah 


■, ■ 44305 


OAC 


PRNT 


^"3447 


1. 3 7 1 


J'^S 


PNXT 


'' 3 4 "^ pi 


i;i?272 


JMS 


KEVIN 


1--345I 


=";44360 


SAH 


K215 


P 3 4 5 '^ 


603503 


JMP 
/ 

RAR 


CFLG 


^)3453 


740020 




03454 


74?0?0 


rtr; 


rtr; 


03455 


7421520 






0345^ 


742020 






03457 


504403 


AND 


K70K 


^13460 


044314 


OAC 


DESTN 


03461 


1 711360 


JMS 


WHERE 


1^3462 


PM4313 


DAC 


SOURCE 


03463 


103737 


JMS 


CRLF 


03464 


623426 


JMP» 


GOTO 



RTR 



/RFAn ACS 

/CHECK BIT 1? 
/EQUALS « 
/CR.LF 
/TEXT POINTER 

/PRIMT PUT ACS 12 ON A 

/WAIT FOR THE 

/CR.LF X 2 

/TEXT POINTER 

/PRINT GO TO FIELD - 
/NAIT FOR INPUT 
/A CR = NO FORCED MOVE 
/AND RESUME AUTO RELOCATE 
/CLEAR THE FORCED MOVE FLAG 

/NOT = RO OR CR, SO IT 
/MUST PE A NUMBER 



/MASK 3.4 AND 5 
/NEW FIELD 
/WHERE ARE WE NOW 
/CURRENT FIELD 
/CR. LF 
/CHECK FOR ERROR 



.EJECT 



ar.F: hi 



; A 1 ' I ' 



■'S'i:'- 


1 1 11 w 


:!■■ ■-' 


^--<44a 


■;?/.;- , 


7 4 13'"^ 


' :^ 4 y i 


r:'3465 


1' 3 1 7 -L 


14:^54?l 


i' "^ 4 7 ? 


l!^3737 


I' 3'!i73 


?i;i4/i50 


.:i 3 4 7 « 


f" 4 4 3 H 5 


:"347' 


1 ',■13 701 


" ^ 4 / ^ 


1 l^ 3 7 3 7 


■ J477 


■-, 54 270 


■ ^ 4 M s-i 


741100 


'.■3=31^1 


f>'^3273 


-■350? 


'^03227 


t^ 3 'i 3 


?i:?i4405 


03=504 


VAv'^Kl 


ii3'50'^ 


h04270 


P 3 5 H 6 


;'44270 


'■■3'=^H7 


6 i/1 (?i 2 2 1 



TiMOT 



/ 

CFLG 



Li-' 



J -IS 
L4C 
n4c 

J-i = 
J -IS 
LA-- 

LAC 

CMa 

DAT 



L C E R 
F^^n 

LOCER 

CRLF 

N'ERN 

PRNT 

PiNIXT 

CRLF 

FLAGS 

FCDMV 
STNXT 

K400K 

FLAGS 
FLAGS 
RTNl 



/NO 1^ R R c -; S I r p 



/CR.LF 

/TFXT POlMTER 

/PRIMT NO MOPE ERRORS 
/CR.LF 

/ACS A 1 = FORCED MOVE 
/WAIT FOR ANOTHER CHOICE 
/TRY NEXT FIELD LOWER 



/CLEAR THE FORCED MOVE FLAG 
/START OVER 



.EJECT 



AGf: 6 


; yarn"- 






'.'.-^],- 


•1 (' ■/ (.1 1/\ 




■ ,^ h I 1 


•'4 /:,-;:' 2 




.'-^'Sr; 


y "1 4 j, 1 ^ 




'' 3 ■=■ 1 ^ 


'4 4 303 




'5 3'^>l': 


>243i6 




<AT,^Xh 


'14 4 304 




'',^516 


.:>vi.-^746 




'V5517 


"M1.200 




(^^52-' 


1 ■/) 3 7 4 6 




(i-'^^^l 


?«540 




?I352? 


741 200 




;''352? 


1 {/1 3 5 4 




P13524 


2C13531 




PI3'52'^ 


P41507 




013526 


103737 




03527 


777766 




t^3'53Ci 


6 >;| 1 4 6 4 




t13B3l 


603532 




H3532 


2-11465 




H3533 


ki41.507 




(713534 


750004 




';^353'S 


741100 




1^3536 


1 01364 




W3537 


623510 




0354p 


■?'^0'/1000 




'^Z'iAl 


103737 




03542 


?«4047 




03543 


I7'44305 




03544 


103701 




03545 


103737 




03546 


623540 




03547 


'>10P1000 




03550 


103737 




03551 


760277 




03552 


101571 




03553 


103737 




03554 


623547 



•.yf-F^J 



JMPl 
/ 



/ 

LOCER 



/ 

WOTIS 



■ M- 
L A r' » 

n A r, 
LAC 

S\'A 

J -IS 

LAC 

LAC 

DAC 
JMS 

L A v, 
JmP 

LAC 
DAC 
LAS 
SPA 
JmS 
JMP* 



JMS 
LAC 
DAC 
JMS 
JMS 
JMP» 



JMS 
LAW 
JMS 
JMS 
JMP« 



SADl 


*'• V E D 


OCADR 


^OVES 


aoooi 


PHDR 


PHOR 


LOCER 


LOCER 


JMPl 


INnY 


CRLF 


-12 


STER 


. +1 


STER+1 


INDY 


MALT 


MVERR 


CRLF 


RELOC 


PRNT 


PNXT 


CRLF 


LOCER 


CRLF 


277 


PCHAR 


CRLF 


WOTIS 



/SAvr I\rOPHFCT INSTPUcTIOM 

/FIELD aNO aOORESS 

/Savf 

/CORPECT 1 VSTRUCTION 

/SAVE 



/DON'T PRIVT if 1 

/PRINT PROGRAM RFLOCATlO-g ERROR 

/JMP RETURN 



/-10 DECIMAL 
/PRINT InFo 



/EQUALS JMS SPING 



/EXIT 



/CR'LF 

/TEXT POINTER 

/PRINT PROGRAM RELOCATION ERROR 

/CR LF X 2 

/EXIT AND PRINT THE ERROR 



/CR.LF 
/QUERY MARK 
/PRINT 
/CR.LF 
/EXIT 



.EJECT 



'Af.t 



/'JOUTIME T' aCCFuT TFST LI^'ITS F^i-^ K^VRna- 



IKPUT 



< ^ ^.. - 


■ ■:?? 


' 3 '^ -S f 


;:.<? <35 


-3-^57 


A-. 5 ? 


.'355t' 


' 1^737 


.' 3 '=^ 6 - 


> ^'i.i5Z 


v\3 '=^ 6 ? 


■44 31^5 


■' 3 S 6 " 


1 :i 3 7 fi 1 


CI 3 -5 6 J 


1 ■, s737 


:'35 6'^ 


? 71 4,1'? 4 


'"^S6^ 


'<143t(^ 


;\3'^6 7 


-' ^ 4 , • S 5 


.'" 3 "^ 7 • 


: 4 4,'i?7 


.'3S71 


1 >2272 


('3S7>' 


- 4 4 3 7 4 


1^3673 


'> 13 556 


f i 3^76 


lf)?3Pil 


H 3 '^ 7 '=^ 


•"4344 


I' 3 i^ 7 ^ 


^34360 


H3577 


^4 4;.120 


(-136 01? 


7 19,.' 90 


"360: 


^-^ '?0 


P 3 6 ■? ? 


•'4Pe)20 


;'36l'.3 


'•4300 


?I36'^4 


1 .'?'7? 


0360'^ 


- 4 4 3 6 1 


^'360 6 


7 4 1,10 


03607 


602312 


?'361C 


10P272 


<^3611 


S44374 


03612 


603556 


03613 


132301 


03614 


2:54344 


6^3615 


504350 


PI3616 


744020 


1^3617 


742''^20 


?i362t^ 


742020 


(^3621 


747'a?0 


03622 


^■44301 


(^362? 


777777 


^362'S 


?44277 


'.■i36 2'= 


444277 


03626 


^a?312 


C13627 


21714300 


C'363? 


740.^01 


'3631 


3 4 4 3 4 6 


■ 363? 


3 4 4 3 01 


?3633 


^7 4 f> ]_ f, PI 


/3634 


^ .1 3 6 4 3 



^Lf^TS 



CREVR 



LAC 
HAC 
JMS 
LAC 
OAC 
JMS 
JMS 
LAC 
OAC 
LAC 
DAC 
JMS 
SAD 
JMP 
JMS 
LAC 
A iM 

rcr; 



DAC 

LAW 
DAC 

is? 

JMP 
LAC 
CMA 

TAP 

TAP 
SM4 
JMP 



STLOOP-1 

1 OCAT+4 

CRLF 

TLMX 

PPNT 

PNXT 

CRLF 

SLMX 

nVFR 

D0N3 

EXIT 

KEVIN 

K377 

SLMTS+i 

LEGAL 

RITN 

K7 

rtr; 



DAC 


FIRSTI 


JMS 


KEVIN 


SAP 


K254 


SKP 




JMP 


QUERY 


JMS 


KEVIN 


SAP 


K377 


JMP 


SLMTS+1 


JMS 


LEGAL 


LAC 


BITN 


AND 


K7 


RCR; 


RTR; 



LASTl 
-1 

CT4K 
CT4K 
OUERY 
FIRSTl 

Kl 
LASTl 

OKAS 



RTR; 



RTR; 



/CR.LF 

/TEST LIMITS POINTER 

/PRINT "TEST LIMITS" 

/CR.LF 

/C (SLMX)=SLMTS+1 

/RETURN AODRESS=CREVR 

/WAIT FOR INPUT 



/SEE IF VALID 
/ASCII INPUT 
/MASK 15.16 AND 17 
RTR 



/FIRST TO TEST 
/WAIT FOR COMMA 



/PRINT QUERY, AND RESTART 
/WAIT FOR LAST 



/SEE IF VALID 

/ASCII INPUT 

RTR 



/LAST 00 TEST 



/NO 2ND DIGIT IF NO sKIP 
/PRINT QUERY AND RESTART 
/FIRST FIELD 

/2'S COMPLEMENT 

/FIRST IS >LAST IF NEG. 

/FIRST IS LOWEST ORDER 



.tJECT 
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/M ^ i - 
;■■ .Vi,'^'- 
■" 3^37 

' 3^4' 
■' 3 6 4^ 
;^ 3 A ^ ^ 
i' 3 6 4 ^ 
?'364^ 
?364'^ 
ti 3 '^ 4 7 
.13^5.■• 
f" 3 /^ 5 1 

H36'^3 
{^3i^54 

l\363h 
i^3657 

(^3663 



PI366? 
H3667 
fi3664 
(^3665 
«366(^ 
03667 
I?l367t' 
(13671 
0367? 
03673 
{^3674 
03675 
(^3676 
03677 
0370(^ 



^ "1 4 ,S '1 4 
' 4 '1 ,S ,' 1 
? 1 -i J I* 1 
■^ 4 4 ,< P ,^ 
■7 4 1 .'• i^ k1 
*- rJo56 
=544271 
7 4 1 ,1 1'l 
'-.136^6 

T 4 4 i» 7 

'4^330 

1 1P314 
'■ .1 -5 "i. >> 6 
j-'^??72 
=54436;^ 
^ ? 3 '7 5 5 
^ .1 ? 3 1 2 



(/' C^ 171 v1 
103737 
? 3 4 ^1 5 6 
(■4 4 305 
1 03701 
70P312 
7 ifl t» 3 1 
603670 
700312 
544374 
603556 
75(^1^04 
CM4272 
103737 
623662 



OKAS 



ALOK 



/SETUP ACS. PRFSS 
/ 



1 ^:' 


f i"sri 


n ,1 !' 


s I T i\i 


L 4" 


L A P T 1 


t1 i r 


■^ Ii^STl 


L AT 


f- 1 T N 


n A c 


LASTl 


LAC 


LASTl 


sah 


FIRSTl 


SK^ 




,.l K ^' 


ALOK 


SA!1 


INSFLD 


S^t^ 




J M ^ 


ALOK 


LAC 


K7f 0K 


PAC 


LOCAT+4 


JMS 


LOCAT 


JI'-IP 


SUMTS+i 


JMS 


KEVIN 


SAP 


K215 


J^iP« 


SLMTS 


jf/.p 


QUERY 



/ S 4 V r 

/LAST IS iMOW FIRST 

/FIRST IS NOW LAST 

/SEE IF ONLY 1 SELECTED 
/YES, SEE IF IT HAS PR .JRAM 

/REJECT IF EQUAL. 
/TELL WHERE IT IS 



/RESTART 

/WAIT FOR A C.R. 

/EXIT 

/PRINT QUERY AND RESTART 



CARRIAGE RETURN TO EXIT 



SETAC 



JMS 


CRLF 


LAC 


SETX 


DAC 


PRNT 


JMS 


PNXT 


KRB 




KSF 




JMP 


.-1 


KRB 




SAO 


K377 


JMP 


SLMTS+1 


LAS 




DAC 


MCWA 


JMS 


CRLF 


JMP« 


SETAC 



/CR-LF 
/POINTER 

/PRINT "SETUP ACS" 



/CHECK FOR A RO 
/START OVER 



/CR.LF 
/EXHT 



.EJECT 
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XAlilS 



■/'M:)\ 


M • 'tHI 


i-37/? 


7 llllfy 


^37ii:< 


:•' 4 4 3 4 1 


i^370't 


4 4 4 :i P 5 


!^ 3 7 ^ 


?P43?5 


P370f- 


741200 


3 7 .1 7 


623701 


H371i' 


•4:^737 


t'371i 


^'^ :t 4 3 5 4 


^1371? 


=^44354 


H3713 


^ <1 3 7 2 4 


03714 


1/44342 


?)371'5 


1717^21 


03716 


3 4 4 3 4 2 


03717 


740100 


P372(i 


6 1^ 3 7 3 4 


03721 


'43715 


03722 


344371 


03723 


101571 


03724 


444341 


03725 


741000 


03726 


603702 


03727 


P03737 


03730 


742020 


0373.1 


74P020 


03732 


742020 


03733 


603710 


03734 


204342 


03735 


344356 


03736 


603723 



03737 

03740 
03741 
03742 
03743 
03744 
03745 



000000 
760215 
101571 
543744 
623737 
760212 
603741 



/PRIMT A 

/ 

PNXT 


STkING 


^ND tXIT. 









LAW 


-3 




DAC 


WRCNT 




]St 


PRNT 




LAC» 


PRNT 




SMA 






JMP« 


PNXT 


MSK 


OAC 


CRLF 




AMD 


K77 




SAD 


K77 




JMP 


CK3 




OAC 


RPETE 




LAW 


-40 




TAO 


RPETE 




SMA 






JMP 


CRLF-3 




XOR 


.-4 




TAD 


K300 




JMS 


PCHAR 


CK3 


IS? 
SKP 


WRCNT 




JMP 


PNXT+1 




LAC 


CRLF 




RTR; 


RTR; 




JMP 


MSK 




LAC 


RPETe 




TAO 


K200 




JMP 


CK3-1 


/ 






/CARRIAGE 


RETURN 


LINE FEED 


/ 






CRLF 









LAW 


215 




JMS 


PCHAR 




SAD 


.+2 




JMP» 


CRLF 




LAW 


212 




JMP 


CRLF+2 



RTR 



/CHARACTER COUNTER 
/WORD POINTER+1 

/ALL DONE OF 

/EXIT 

/SAVE WORD 

/MASK 6 BIT CHARACTER 

/CHECK IF RUBOUT 

/SAVE CHAR 



/NEC. = ALPHA 
/NUMERIC 

/MAKE ALPHA 
/PRINT ACS 10-17 
/CHECK FOR 3 CHARACTERS 

/GFT next 3 CHARACTERS 
/POSITION NEXT 



/PRINT JT 
/MAKE NUMERIC 



/ASCII CR 



/EXIT 
/LF 



.EJECT 



P a. r- E ^ -"i 



'U' 



i^ 3 7 4 (S 


.■■7,a/,0Q 


vi 3 7 4 7 


1 !.T ^ 7 3 7 


>;)375t-'i 


P04057 


v''37'5-! 


f443«5 


■73752 


11/13701 


i^37B3 


103775 


3 75 4 


204060 


(''3755 


P 4 4 3 5 


^'■375^ 


103701 


1-3757 


1 'Vi 3 7 7 5 


i/l 3 7 6 PI 


204:361 


t^376l 


044305 


t'376? 


1 03701 


i^3763 


103775 


?3764 


204062 


(13765 


4 4 3 f 5 


03766 


103701 


03767 


103775 


03770 


204063 


03771 


044305 


03772 


103701 


03773 


103737 


03774 


623746 


03775 


000000 


03776 


777773 


03777 


043737 


04000 


101615 


04001 


623775 



/XAD1 5 
/ 

/ 



/ 
/ 

CLMN 



J- s 


CRLF 


' AT 


TSTX 


1^ i r 


PRNT 


JMS 


PNXT 


JMS 


CLMN 


LAC 


40RXA 


PA^ 


PRNT 


JMS 


PNXT 


JMS 


CLMN 


LAC 


GOATX 


PAT 


PRNT 


J-iS 


PNXT 


J'lP 


CLMN 


I-AC 


SDATX 


OAT 


PRNT 


jMc; 


PNXT 


JMS 


CLMN 


LAC 


BWPA 


DAC 


PRNT 


JMS 


PNXT 


JMS 


CRLF 


JMtJ» 


PHDR 







LAW 


-5 


DAC 


CRLF 


JMS 


SPING 


JMPo 


CLMN 


.EJECT 





/CR. LF 

/POINTER FOR "TEST" 

/PRINT TEST 
/SPACE 5 
/"OCTAL ADR." 



/SPACE 5 
/"GOOD" 



/SPACE 5 
/"PAD" 



/SPACE 5 

/"FIELD WITH PAT." 



/CR, LF 
/DONE 



/SPACE 
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X Ai" 





"M?t93 


» "^ ' -."^ 


.!:--)16 


:""4p,ii 


.■.')(?737 


l' 4 .-,':'=•. 


:'C511?5 


!' 4 ^ i1 f 


'^^ ':14263 


'/ 4 1-1 ,a 7 


- ■'?14252 


;• 4 -' 1 ; ■ 


'a?i'!37 


." 4^-11 


?£5?i^37 


r4ei? 


704412 


■ ■ 4 I' 1 ? 


,'^yi(A?i?\l!) 


1-4014 


•^ 1 =5 J 1 1 


C. 4 (71 1 "^ 


C 714 114 


lMf)16 


."■7;4i2i 


C4f117 


? ill 660 


t" 4 2 f 


M25127 


iM 2 1 


:*;i?04 4 


f4?2? 


■02163 


£'4t»2J 


■M^114 


f"4024 


i'?i?233 


04fl25 


P ';^ 4 1 ? 7 


i?4f 26 


7 ,71 4 1 ^ 4 


^14?27 


t'Pi4i35 


■^ 4 i^ 3 (■■ 


'ii?521 


f* 4 f 3 1 


''17534 


'/ 4 [« .■$ 2 


■t'?557 


t" 4 3 ? 


"02567 


t' 4 P' 3 4 


"5'?614 


k'4t'3^ 


t'':'|?620 


,'4^36 


"/'?630 


?4037 


i/i;i2650 


0404t' 


^ [^2656 


t^4t^41 


P?12664 


?i4i?42 


?02672 


?4043 


CPI4326 


04044 


0?i4336 


1^404'? 


P04176 


04046 


004243 


I?I4H47 


004206 


04P5P 


v' 04 220 


t^4P'5l 


004143 


C14052 


?04164 


04f^53 


?104227 


P4f/3A 


P03556 


C'APSB 


("03625 


l?4l?5f 


'?04235 


P4f'57 


.^04065 


4 ? A ;^ 


•■^ 4 7 1 





OLMT 


75?o-3 


KRTN2 


PT\2 


KRTN3 


RT\3 


KRTN4 


RTNJ4 


LAL 


ALL 


PTO 


PTn 


ROTA 


ROTC 


ROTB 


ROTC 


STRL 


KENO+2 


SUPTRL 





fSTBL 


KEM0 + 4»-^l 


TSNX 


TSN 


SUPSX 


SUPS 


INSUP 


SUPI"! 


SUPDN 


DNSUP 


NBLK 


BLKi 


TBLK 


BLK? 


D0NE2 


DBLKl 


D0NE3 


0BLK2 


BLKSX 


BLKS 


OVRLP 


OVLAP 


RLKTX 


BLKT 


00NE5 


BLKB? 


D0NE6 


eLKE2 


D0NE7 


BLKB3 


D0NE8 


BLKD3 


00NE9 


BLKB4 


OON10 


BLKC4 


DONli 


BLKD4 


00N12 


BLKG4 


D0N13 


BLKH4 


D0N14 


BLKJ4 


D0N15 


BLKL4 


ERTBL 


ERWRD+1 


ENERR 


ERWRn+11 


PTWLV 


PUT12 


GOFL 


GOFLD 


RELOC 


PROR 


NERN 


NOMO 


PISIN 


PROIS 


ERSEL 


SLTER 


TLMX 


TSLM 


SLMX 


SLMTS+l 


D0N3 


CREVR 


SETX 


STAC5 


TSTX 


TST 


ADRXA 


ADR 




.EJECT 



( r 



<- CTS 
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.I'! /75 


r, A T X 


GDiT 


'/ 4 ■[ p p 


^■' A T X 


PDaT 


/ 4 1 '.' 5 


R^JPA 


BwPa^ 


o .~ -i ? 4 


HLMTA 


75?'? --4 

.EJECT 



Page 67 



V' 4 f 1 6 =S 


" .u ,> s 


'/■ 4 (' 6 ^ 


?3 "D?4 


/ 4 ^ 6 7 


"'777?4 


i'Mfr? • 


' ? ,> I') i/1 


?4!'71 


=■'£^4^71 


V' 4 ;' 7 / 


?4;1317 


/ 4 1/' 7 ' 


'^i^ll 401 


041^7^ 


? 2 P 4 1 


(^4P7=: 


'/ ^ S^ 


(714(^7*, 


■ 4 ,-) 7 6 


?i4t:77 


171707 


'/i41tH^ 


777704 


i^41«l 


.HI.' ,100 


H41H? 


■■^v1il02 


S^4103 


,'<i-102 


?'4104 


■-i^'.1000 


P 4 1 « ? 


('t14i?5 


?4106 


r-51106 


(1 4 ] 7 


40PI414 


4 1 1 17 


^41127 


PI4111. 


.?iM010 


1^411? 


■=^62401 


?i4ii:s 


■00000 



/ 

/CONJSTAMTS f.^W PPIMT ROUTINF TEXTS. PACKED 

/3C^ARArTf-^-iPERW0>?D. 

/ 

/"TEST" 

TST 

?3r'">?4; 7777y4; 



/ 

AOR 



/ 

GOAT 



/ 

BOAT 



/ 

RWPAT 



P40317; 401401; 220401; 



1717917: 777704; 



0401PI2J 



PI51106; 400414! 241127! 204010 



5624^^1; PI 

/ 

/TEST # - 

/ 

C4114 004114 TSN 

PI4115 P30524 230524; 434024? 405540; 

f4116 434024 

04117 40t;540 

04120 1-100000 

/ 

/SUPPRESS - 

/ 
P4121 ti,-a4l2l SUPS 

^^4122 202523 202523; 052220! 402323! 774055 

f;4123 P52220 
.-4124 402323 
f'4l25 774^55 

!^4126 '7I0PI000 

/ 

/BLOCK #1 - 
/ 

fM127 •04127 RLKS 

?4135' 1714P2 1714^2; 401303; 406143; 774055 

(,< 4 1 M -1 ;m 3 1^ 3 



PAGf 6^ 



> Af f- 



yi 4 1 "^ ' 

■.■■' 4 1 .5 - 



" ;» A 1 4 ,1; 

7 7 '1 ■* =1 5 



^ 



I'! 4 1 3 6 
f!4l37 
4 1 4 P 
04141 
045 4? 



■/■>^4i35 
1 7 1 4 ?l 2 
4 '/ 1 3 Pi 3 
4.^6243 
774J55 



/BLOCK »? - 

/ 

RLKT 

1714/^2; 4013W3; 406243! 774055 




.EJECT 



^GF T- 



X AT'l 



;•■' 4 1 4 X 

' ' 4 1 4 : 
C 41 4^^ 
^ 4 1 4 ^- 
414 7 
041'pf 
f«41^1 
tM15? 

P4i';3 



[7141 54 
l^ 4 1 5 =; 
■^'4156 
i-' 4 1 5 7 
i^ 4 1 6 i-i 
K 4 1 6 5 

4 16."^ 



04164 
t^4165 
04166 
04167 
0417P 
f4l7i 
0417? 
04173 
04174 
1^417'^ 



04176 
04177 

554200 
04?01 
0420? 
04203 

04204 
0420? 



?4?06 
f'42!/)7 

CM 2 1 ■^ 
1^4211 
4 219 
iM 2 1 3 



] 7?22*i) 

■ ■ t ' ' 2 !' 7 
1 1 4 ,! 1 5 

114,123 
" 6 4 i-j 1 6 
' 4i'?ll 
774/104 

?:i'?;vj00 



-'i14154 

4;^23ii 

'41127 
161110 
'22040 
?2!?'717 
771501 
PvT-:^^00 



■.■'■714 164 
2 2 2 2 K 5 
4;'9217 
^01611 
140523 
245^305 
4(10405 
t' ■51106 
77H414 

f f?0000 



004176 
242520 
v^30l40 
614023 
174062 
014016 
776040 

00';i000 



004206 
172220 
019 2 -;' 7 
22'».M5 

1 7 1 4 p S 



/PROGRAM IS IN FIELD 

/ 

PROIS 

17222^; .'ii22i^7; 114015; 114P23 



064016; 140511; 774004; 



/ 

/IS WITH IN) PROGRAM 

/ 

OVLAP 

402311; 241127; 161110; 222040 



220717; 771501; 



/ 

/ERROR IN SELECTED FIELD 

/ 

SLTER 

222205; 402217: 401611; 140523 



240305; 400405; 051106: 770414 




/ 

/PUT ACS 12 ON A 

/ 

PUT12 

242520: 030140: 614023! 174062 



014016; 776040: 



/ 

/PROGRAM RELOCATION ERROR 

/ 

PROR 

172220; H12207: 224015! 171405 



240l'/'3; 161711; 220540; 221722 
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yAiris 



-' 4 7 1 4 

t' 4 ^ t '- 

/ 4 ? 1 *- 

/ 4 ? 1 7 



r/.4pp(7l 

i"4??l 
t-1422? 
t^4?23 
«422'!i 
1^4225 
f^4?26 



04227 
f14?3f 
fi423l 
04232 
04233 
04234 



' M 7 1 1 



P04^20 
401716 
'31 715 
C''54i/!05 
172222 
772322 

^■00000 



1^04227 
230524 
144024 
111511 
772324 
000000 



/ 

/NO MORE E^'^^'i^S 

/ 

Ni M 

401716; 221715; 054005; 172222 



772322; '^ 

/ 

/TEST LIMITS 

/ 

TSLM 

230524; 144024; 111511! 772324 





.EJECT 
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IM > 3 '- 
4 ? 3 7 
P424i/ 
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